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INTRODUCTION 



FEATURES OF PROGRAMMER'S AID #1 

Programmer's Aid #1 combines several APPLE II programs that Integer BASIC 
programmers need quite frequently. To avoid having to load them from a 
cassette tape or diskette each time they are used, these programs have been 
combined in a special read-only memory (ROM) integrated circuit (IC). When 
this circuit is plugged into one of the empty sockets left on the APPLE'S 
printed-circuit board for this purpose, these programs become a built-in 
part of the computer the same way Integer BASIC and the Monitor routines 
are built in. Programmer's Aid #1 allows you to do the following, on your 
APPLE II: 



Chapter 1. Renumber an entire Integer BASIC program, 
or a portion of the program. 

Chapter 2. Load an Integer BASIC program from tape without 

erasing the Integer BASIC program that was already 
in memory, in order to combine the two programs. 

Chapter 3. Verify that an Integer BASIC program has been 
saved correctly on tape, before the program 
is deleted from APPLE'S memory. 

Chapter 4. Verify that a machine-language program or data area 
has been saved correctly on tape from the Monitor. 

Chapter 5. Relocate 6502 machine-language programs. 

Chapter 6. Test the memory of the APPLE. 

Chapter 7. Generate musical notes of variable duration over 
four chromatic octaves, in five (slightly) 
different timbres, from Integer BASIC. 

Chapter 8. Do convenient High-Resolution graphics from Integer BASIC. 



Note: if your APPLE has the firmware APPLESOFT card installed, its switch 
must be down (in the Integer BASIC position) for Programmer's Aid #1 
to operate* 



XI 
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HOW TO INSTALL THE PROGRAMMER'S AID ROM 

The Programmer's Aid ROM is an IC that has to be plugged into a socket on 
the inside of the APPLE II computer. 




1. Turn off the power switch on the back of the APPLE II. This is 
important to prevent damage to the computer. 

2. Remove the cover from the APPLE II. This is done by pulling up on the 
cover at the rear edge until the two corner fasteners pop apart. Do not 
continue to lift the rear edge, but slide cover backward until it comes 
free. 

3. Inside the APPLE, toward the right center of the main printed-circuit 
board, locate the large empty socket in Row F, marked "ROM-D0". 

A. Make sure that the Programmer's Aid ROM IC is oriented correctly. The 
small semicircular notch should be toward the keyboard. The Programmer's 
Aid ROM IC must match the orientation of the other ROM ICs that are already 
installed in that row. 

5. Align all the pins on the Programmer's Aid ROM IC with the holes in 
socket D0, and gently press the IC into place. If a pin bends, remove the 
IC from its socket using an "IC puller" (or, less optimally, by prying up 
gently with a screwdriver). Do not attempt to pull the socket off the 
board. Straighten any bent pins with a needlenose pliers, and press the IC 
into its socket again, even more carefully. 

6. Replace the cover of the APPLE, remembering to start by sliding the 
front edge of the cover into position. Press down on the two rear corners 
until they pop into place. 

7. Programmer's Aid #1 is installed; the APPLE II may now be turned on. 

XII 
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CHAPTER 

RENUMBER 



1 Renumbering an entire BASIC program 

2 Renumbering a portion of a BASK" program 
4 Comments 
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RENUMBERING AN ENTIRE BASIC PROGRAM 

After loading your program into the APPLE, type the 

CLR 

command. This clears the BASIC variable table, so that the Renumber 
feature's parameters will be the first variables,. in the table. The 
Renumber feature looks for its parameters by location in the variable 
table. For the parameters to appear in the table in their correct 
locations, they must be specified in the correct order and they must have 
names of the correct length . 

Now, choose the number you wish assigned to the first line in your 
renumbered program. Suppose you want your renumbered program to start at 
line number 1000. Type 

START = 1000 

Any valid variable name will do, but it must have the correct number of 
characters. Next choose the amount by which you want succeeding line 
numbers to increase. For example, to renumber in increments of 10, type 

STEP = 10 

Finally, type the this command: 

CALL -10531 

As each line of the program is renumbered, its old line number is displayed 
with an "arrow" pointing to the new line number. A possible example might 
appear like this on the APPLE'S screen: 

7->1000 

213->1010 

527->1020 

698->1030 

13000->1040 

13233->1050 



RENUMBERING PORTIONS OF A PROGRAM 

You do not have to renumber your entire program. You can renumber just the 
lines numbered from, say, 300 to 500 by assigning values to four variables. 
Again, you must first type the command 

CLR 

to clear the BASIC variable table. 

2 
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The first two variables for partial renumbering are the same as those for 
renumbering the whole program. They specify that the program portion, 
after renumbering, will begin with line number 200, say, and that each 
line's number thereafter will be 20 greater than the previous line's: 

START =200 
STEP = 20 

The next two variables specify the program portion's range of line numbers 
before renumbering: 

FROM = 300 
TO = 500 

The final command is also different. For renumbering a portion of a 
program, use the command: 

CALL -10521 

If the program was previously numbered 

100 

120 

300 

310 

402 . 

500 
2000 
2022 

then after the renumbering specified above, the APPLE will show this list of 
changes : 

300->200 
310->220 
402->240 
500->260 

and the new program line numbers will be 

100 

120 

200 

220 

240 

260 
2000 
2022 
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You cannot renumber in such a way that the renumbered lines would replace, 
be inserted between or be intermixed with un-renumbered lines. Thus, you 
cannot change the order of the program lines. If you try, the message 

*** RANGE ERR 

is displayed after the list of proposed line changes, and the line numbers 
themselves are left unchanged. If you type the commands in the wrong order, 
nothing happens, usually. 



COMMENTS: 

1. If you do not CLR before renumbering, unexpected line numbers may 
result. It may or may not be possible to renumber the program again and 
save your work. 

2. If you omit the START or STEP values, the computer will choose them 
unpredictably. This may result in loss of the program. 

3. If an arithmetic expression or variable is used in a GOTO or GOSUB, that 
GOTO or GOSUB will generally not be renumbered correctly. For example, GOTO 
TEST or GOSUB 10+2(3 will not be renumbered correctly. 

4. Nonsense values for STEP, such as or a negative number, can render 
your program unusable. A negative START value can renumber your program 
with line numbers above 32767, for what it's worth. Such line numbers are 
difficult to deal with. For example, an attempt to LIST one of them will 
result in a >32767 error. Line numbers greater than 32767 can be corrected 
by renumbering the entire program to lower line numbers. 

5. The display of line number changes can appear correct even though the 
line numbers themselves have not been changed correctly. After the *** 
RANGE ERR message, for instance, the line numbers are left with their 
original numbering. LIST your program and check it before using it. 

6. The Renumber feature applies only to Integer BASIC programs. 

7. Occasionally, what seems to be a "reasonable" renumbering does not work. 
Try the renumbering again, with a different START and STEP value. 



4 

"A2MAN 030-0026-01 3 04.PICT" 287 KB 2001 -07-22 dpi: 600h x 600v pix: 2742h x 3968v 

Author: Apple Computer, Inc. • Document # 030-0026-01 | Page 0020 of 0113 



Apple 2 Technical Manual • Programmer's Aid # 1 • 1978 




CHAPTER 

APPEND 



ft Appending one BASIC program to another 

ft CoiTint'rit s 
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APPENDING ONE BASIC PROGRAM TO ANOTHER 

If you have one program or program portion stored in your APPLE'S memory, 
and another saved on tape, it is possible to combine them into one program. 
This feature is especially useful when a subroutine has been developed for 
one program, and you wish to use it in another program without retyping the 
subroutine. 

For the Append feature to function correctly, all the line numbers of the 
program in memory must be greater than all the line numbers of the 
program to be appended from tape. In this discussion, we will call the 
program saved on tape "Programl," and the program in APPLE'S memory 
"Program2." 

If Program2 is not in APPLE'S memory already, use the usual command 

LOAD 

to put Program2 (with high line numbers) into the APPLE. Using the Renumber 
feature, if necessary, make sure that all the line numbers in Program2 are 
greater than the highest line number in Programl. 

Now place the tape for Programl in the tape recorder. Use the usual loading 
procedure, except that instead of the LOAD command use this command: 

CALL -11076 

This will give the normal beeps, and when the second beep has sounded, the 
two programs will both be in memory. If this step causes the message 

*** MEM FULL ERR 

to appear, neither Program2 nor Programl will be accessible. In this case, 
use the command 

CALL -11059 

to recover Program2, the program which was already in APPLE'S memory. 

COMMENTS: 

1. The Append feature operates only with APPLE II Integer BASIC programs. 

2. If the line numbers of the two progams are not as described, expect 
unpredictable results. 
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VERIFYING A BASIC PROGRAM SAVED ON TAPE 



Normally, it is impossible (unless you have two APPLEs) to know whether or 
not you have successfully saved your current program on tape, in time to do 
something about a defective recording. The reason is this: when you SAVE a 
program on tape, the only way to discover whether it has been recorded 
correctly is to LOAD it back in to the APPLE. But , when you LOAD a 
program, the first thing the APPLE does is erase whatever current program is 
stored. So, if the tape is bad, you only find out after your current 
program has been lost. 

The Tape Verify feature solves this problem. Save your current program in 
the usual way: 

SAVE 

Rewind the tape, and (without modifying your current program in any way) 
type the command 

CALL -10955 

Do not press the RETURN key until after you start the tape playing. If the 
tape reads in normally (with the usual two beeps), then it is correct. If 
there is any error on the tape, you will get a beep and the ERR message. If 
this happens, you will probably want to try re-recording the tape, although 
you don't know for sure whether the Tape Verify error means that the tape 
wasn't recorded right or if it just didn't play back properly. In any case, 
if it does verify, you know that it is good. 



COMMENTS: 

1. This works only with Integer BASIC programs. 

2. Any change in the program, however slight, between the time the program 
is SAVEd on tape and the time the tape is verified, will cause the 
verification to fall. 
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VERIFYING A PORTION OF MEMORY SAVED ON TAPE 



Users of machine-language routines will find that this version of the Tape 
Verify feature meets their needs. Save the desired portion of memory, from 
address 1 to address 2, in the usual way: 

address 1 . address2 W return 

Note: the example instructions in this chapter often include spaces for 
easier reading; do not type these spaces. 

Rewind the tape, and type (after the asterisk prompt) 

D52EG return 

This initializes the Tape Verify feature by preparing locations $3F8 through 
$3FA for the Ctrl Y vector. Now type (do not type the spaces) 

address 1 . address2 ctrl Y return 

and re-play the tape. The first error encountered stops the program and is 
reported with a beep and the word ERR. If it is not a checksum error, then 
the Tape Verify feature will print out the location where the tape and 
memory disagreed and the data that it expected on the tape. 

Note: type "ctrl Y" by typing Y while holding down the CTRL key; ctrl Y is 
not displayed on the TV screen. Type "return" by pressing the RETURN key. 



COMMENTS: 

Any change in the specified memory area, however slight, between the time 
the program is saved on tape and the time the tape is verified, will cause 
the verification to fail. 
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PART A: THEORY OF OPERATION 



RELOCATING MACHINE-LANGUAGE CODE 

Quite frequently, programmers encounter situations that call for relocating 
machine-language (not BASIC) programs on the 6502-based APPLE II computer. 
Relocation implies creating a new version of the program, a version that 
runs properly in an area of memory different from that in which the original 
program ran. 

If they rely on the relative branch Instruction, certain small 6502 programs 
can simply be moved without alteration, using the existing Monitor Move 
commands. Other programs will require only minor hand-modification after 
Monitor Moving. These modifications are simplified on the APPLE II by the 
built-in disassembler, which pinpoints absolute memory-reference 
instructions such as JMP's and JSR's. 

However, sometimes it is necessary to relocate lengthy programs containing 
multiple data segments Interspersed with code. Using this Machine-Code 
Relocation feature can save you hours of work on such a move, with Improved 
reliability and accuracy. 



The following situations call for program relocation: 

1. Two different programs, which were originally written to run in 
identical memory locations, must now reside and run in memory concurrently. 

2. A program currently runs from ROM. In order to modify its operation 
experimentally, a version must be generated which runs from a different set 
of addresses in RAM. 

3. A program currently running in RAM must be converted to run from EPROM 
or ROM addresses. 

4. A program currently running on a 16K machine must be relocated in order 
to run on a 4K machine. Furthermore, the relocation may have to be 
performed on the smaller machine. 

5. Because of memory-mapping differences, a program that ran on an APPLE I 
(or other 6502-based computer) falls into unusable address space on an APPLE 
II. 

6. Because different operating systems assign variables differently, either 
page-zero or non-page-zero variable allocation for a specific program may 
have to modified when moving the program from one make of computer to 
another. 
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7. A program, which exists as several chunks strewn about memory, must be 
combined in a single, contiguous block. 

8. A program has outgrown the available memory space and must be relocated 
to a larger, "free" memory space. 

9. A program Insertion or deletion requires a portion of the program to 
move a few bytes up or down. 



10. On a whim, the user wishes to move a program. 



PROGRAM MODEL 

Here is one simple way to visualize program relocation: starting with a 
program which resides and runs in a "Source Block" of memory, relocation 
creates a modified version of that program which resides and runs properly 
in a "Destination Block" of memory. 

However, this model does not sufficiently describe situations where the 
"Source Block" and the "Destination Block" are the same locations in memory. 
For example, a program written to begin at location $4(30 on an APPLE I (the 
$ indicates a hexadecimal number) falls in the APPLE II screen-memory range. 
It must be loaded to some other area of memory in the APPLE II. But the 
program will not run properly in its new memory locations, because various 
absolute memory references, etc., are now wrong. This program can then be 
"relocated" right back into the same new memory locations, a process which 
modifies it to run properly in its new location. 

A more versatile program model is as follows. A program or section of a 
program written to run in a memory range termed the "Source Block" 
actually resides currently in a range termed the "Source Segments". Thus 
a program written to run from location $400 may currently reside beginning 
at location $800. After relocation, the new version of the program must be 
written to run correctly in a range termed the "Destination Block" 
although it will actually reside currently in a range termed the 
"Destination Segments". Thus a program may be relocated such that it will 
run correctly from location $D800 (a ROM address) yet reside beginning at 
location $C00 prior to being saved on tape or used to burn EPROMs 
(obviously, the relocated program cannot immediately reside at locations 
reserved for ROM). In some cases, the Source and Destination Segments may 
overlap. 



13 

"A2MAN 030-0026-01 3 1 3.PICT" 337 KB 2001 -07-22 dpi: 600h x 600v pix: 2742h x 4005v 

Author: Apple Computer, Inc. • Document # 030-0026-01 | Page 0029 of 0113 



Apple 2 Technical Manual • Programmer's Aid # 1 



1978 



BLOCKS AND SEGMENTS EXAMPLE 



Segments: 
Locations in APPLE II 
where Programs Reside 
During Relocation 



$800 



$B87 



Blocks : 
Locations where 
Programs Run 



Original program 
runs from location 
$400 on APPLE I 



(Source) 



$C00 



$F87 



Relocated version 
runs from location 
$D800 on APPLE II 



Relocation 



(Destination) 



SOURCE BLOCK: $400-$787 
SOURCE SEGMENTS: $800-$B87 



DESTINATION BLOCK: $D800-$DB87 
DESTINATION SEGMENTS: $C00-$F87 
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DATA SEGMENTS 

The problem with relocating a large program all at once is that blocks of 
data (tables, text, etc.) may be interspersed throughout the code. During 
relocation, this data may be treated as if it were code, causing the data to 
be changed or causing code to be altered incorrectly because of boundary 
uncertainties introduced when the data takes on the multi-byte attribute of 
code. This problem is circumvented by dividing the program into code 
segments and data segments, and then treating the two types of segment 
differently. 



CODE AND DATA SEGMENTS EXAMPLE 



$B87 



$800 



► 


Code Segment 
$800-$892 




Data Segment 
$893-$992 




Code Segment 
$993-$ABF 




Data Segment 
$AC0-$ACE 


► 


Code Segment 
$ACF-$B87 



The Source Code Segments are relocated (using the 6502 Code-Relocation 
feature) , while the Source Data Segments are moved (using the Monitor 
Move command). 
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HOW TO USE THE CODE-RELOCATION FEATURE 



1. To initialize the 6502 Code-Relocation feature, press the RESET key to 
invoke the Monitor, and then type 

D4D5G return 

The Monitor user function Ctrl Y will now call the Code-Relocation feature 
as a subroutine at location $3F8. 

Note: To type "ctrl Y", type Y while holding down the CTRL key. To type 
"return", press the RETURN key. In the remainder of this discussion, all 
instructions are typed to the right of the Monitor prompt character ( * ). 
The example instructions in this chapter often include spaces for easier 
reading; do not type these spaces. 



2. Load the source program into the "Source Segments" area of memory (if it 
is not already there). Note that this need not be where the program 
normally runs. 



3. Specify the Destination and Source Block parameters. Remember that a 
Block refers to locations from which the program will run , not the 
locations at which the Source and Destination Segments actually reside 
during the relocation. If only a portion of a program is to be relocated, 
then that portion alone is specified as the Block. 

DEST BLOCK BEG < SOURCE BLOCK BEG . SOURCE BLOCK END ctrl Y * return 

Notes: the syntax of this command closely resembles that of the Monitor Move 
command. Type "ctrl Y" by pressing the Y key while holding down the CTRL 
key. Then type an asterisk ( * ); and finally, type "return" by pressing 
the RETURN key. Do not type any spaces within the command. 
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4. Move all Data Segments and relocate all Code Segments In sequential 
(Increasing address) order. It is wise to prepare a list of segments, 
specifying beginning and ending addresses, and whether each segment is code 
or data. 



If First Segment is Code : 

DEST SEGMENT BEG < SOURCE SEGMENT BEG . SOURCE SEGMENT END Ctrl Y return 

If First Segment is Data : 

DEST SEGMENT BEG < SOURCE SEGMENT BEG . SOURCE SEGMENT END M return 

After the first segment has been either relocated (if Code) or Moved (if 
data), subsequent segments can be relocated or Moved using a shortened form 
of the command. 

Subsequent Code Segments : 

. SOURCE SEGMENT END ctrl Y return (Relocation) 

Subsequent Data Segments : 

. SOURCE SEGMENT END M return (Move) 

Note: the shortened form of the command can only be used if each 
"subsequent" segment is contiguous to the segment previously relocated or 
Moved. If a "subsequent" segment is in a part of memory that does not begi 
exactly where the previous segment ended, it must be Moved or relocated 
using the full "First Segment" format. 



n 



If the relocation is performed "in place" (SOURCE and DEST SEGMENTS reside 
in identical locations) then the SOURCE SEGMENT BEG parameter may be omitted 
from the First Segment relocate or Move command. 
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PART B: CODE-RELOCATION EXAMPLES 



EXAMPLE 1. Straightforward Relocation 

Program A resides and runs in locations $800-$97F. The relocated version 
will reside and run in locations $A00-$B7F. 



SOURCE SEGMENTS 



$800 ► 


CODE 
$800-$88F 




DATA 
$890-$8AF 




CODE 
$8B0-$90F 




DATA 
$910-$93F 


$97F fc 


CODE 
$940-$97F 



$A00 



$B7F 



DEST SEGMENTS 



CODE 
$A00-$A8F 



DATA 
$A90-$AAF 



CODE 
$AB0-$B0F 



DATA 
$B10-$B3F 



CODE 
$B40-$B7F 



SOURCE BLOCK: $800-$97F 
SOURCE SEGMENTS: $800-$97F 



DEST BLOCK: $A00-$B7F 
DEST SEGMENTS: $A00-$B7F 



(a) Initialize Code-Relocation feature: 
reset D4D5G return 



(b) Specify Destination and Source Block parameters (locations from which 
the program will run): 



A00 < 800 . 97F ctrl Y * return 

(c) Relocate first segment (code): 
A00 < 800 . 88F ctrl Y return 
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(d) Move subsequent Data Segments and relocate subsequent Code Segments, in 
ascending address sequence: 

. 8AF M return (data) 

. 90F ctrl Y return (code) 

. 93F M return (data) 

. 97F ctrl Y return (code) 

Note that step (d) illustrates abbreviated versions of the following 

commands : 

A90 < 890 . 8AF M return (data) 

AB0 < 8B0 . 90F ctrl Y return (code) 

B10 < 910 . 93F M return (data) 

B40 < 940 . 97F ctrl Y return (code) 



EXAMPLE 2. Index Into Block 

Suppose that the program of Example 1 uses an indexed reference into the 
Data Segment at $890 as follows: 

LDA 7B0.X 

where the X-REG is presumed to contain a number in the range $E0 to $FF. 
Because address $7B0 is outside the Source Block, it will not be relocated. 
This may be handled in one of two ways. 

(a) You may fix the exception by hand; or 

(b) You may begin the Block specifications one page lower than the 
addresses at which the original and relocated programs begin to use all such 
"early references." One lower page is enough, since FF (the number of bytes 
in one page) is the largest offset number that the X-REG can contain. In 
EXAMPLE 1, change step (b) to: 

900 < 700 . 97F ctrl Y * return 

Note: with this Block specification, all program references to the "prior 
page" (in this case the $700 page) will be relocated. 
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EXAMPLE 3. Immediate Address References 

Suppose that the program of EXAMPLE 1 has an immediate reference which is an 
address. For example, 

LDA #$3F 

STA LOC0 

LDA #$08 

STA LOCI 

JMP (LOC0) 

In this example, the LDA #$08 will not be changed during relocation and the 
user will have to hand-modify it to $0A. 



EXAMPLE 4. Unusable Block Ranges 

Suppose a program was written to run from locations $400-$78F on an APPLE I. 
A version which will run in ROM locations $D800-$DB8F must be generated. 
The Source (and Destination) Segments will reside in locations $800-$B8F on 
the APPLE II during relocation. 



Addresses 

during 
relocation 

$800 



Source 
And 
Destination 
Segments 



► 


CODE 
$800-$97F 




DATA 
$980-$9FF 


► 


CODE 
$A00-$B8F 



$B8F 

SOURCE BLOCK: 
SOURCE SEGMENTS: 



$400-$78F 
$800-$B8F 



Source 
And 
Destination 
Blocks 



Runs from locations $400-$78F on 
an APPLE I, but must be relocated 
to run from locations $D800-$DB8F 
on the APPLE II. 



DEST BLOCK: 
DEST SEGMENTS: 



$D800-$DB8F 
$800-$B8F 



(a) Initialize the Code-Relocation feature: 
reset D4D5G return 



(b) Load original program into locations $800-$B8F (despite the fact that 
it doesn't run there): 



800 . B8F R return 
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(c) Specify Destination and Source Block parameters (locations from which 
the original and relocated versions will run): 



D800 < 400 . 78F ctrl Y return 



(d) Move Data Segments and relocate Code Segments, in ascending address 
sequence: 



< 800 . 97F ctrl Y return (first segment, code) 
. 9FF M return (data) 

. B8F ctrl Y return (code) 

Note that because the relocation is done "In place", the SOURCE SEGMENT BEG 
parameter is the same as the DEST SEGMENT BEG parameter ($800) and need not 
be specified* The Initial segment relocation command may be abbreviated as 
follows: 

< . 97F ctrl Y return 



EXAMPLE 5. Changing the Page Zero Variable Allocation 

Suppose the program of EXAMPLE 1 need not be relocated, but the page zero 
variable allocation is from $20 to $3F. Because these locations are 
reserved for the APPLE II system monitor, the allocation must be changed to 
locations $80-$9F. The Source and Destination Blocks are thus not the 
program but rather the variable area. 

SOURCE BLOCK: $20-$3F DEST BLOCK: $80-$9F 

SOURCE SEGMENTS: $800-$97F DEST SEGMENTS: $800-$97F 



(a) Initialize the Code-Relocation feature: 
reset DAD5G return 

(b) Specify Destination and Source Blocks: 

80 < 20 . 3F ctrl Y * return 

(c) Relocate Code Segments and Move Data Segments, in place: 

800 < . 88F ctrl Y return (first segment, code) 

. 8AF M return (data) 

. 90F ctrl Y return (code) 

. 93F M return (data) 

. 97F ctrl Y return (code) 
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EXAMPLE 6. Split Blocks with Cross-Referencing 

Program A resides and runs in locations $800-$8A6. Program B resides and 
runs in locations $900-$9Fl. A single, contiguous program is to be 
generated by moving Program B so that it immediately follows Program A. 
Each of the programs contains references to memory locations within the 
other. It is assumed that the programs contain no Data Segments. 



SOURCE SEGMENTS 



DEST SEGMENTS 



$800 
$8A6 

$900 
$9F1 



— w 


Program A 
$800-$8A6 




Unused 




Program B 
$900-$9Fl 



$800— ► 



$8A6 
$8A7 



$998—* 



Program A 
$800-$8A6 



Program B 
$8A7-$998 



SOURCE BLOCK: 
SOURCE SEGMENTS: 



$900-$9Fl 
$800-$8A6 (A) 
$900-$9Fl (B) 



DEST BLOCK: 
DEST SEGMENTS: 



$8A7-$998 
$800-$8A6 (A) 
$8A7-$998 (B) 



(a) Initialize the Code-Relocation feature: 

D4D5G return 

(b) Specify Destination and Source Blocks (Program B only): 
8A7 < 900 . 9F1 ctrl Y * return 



(c) Relocate each of the two programs individually. Program A must be 
relocated even though it does not move. 



800 < . 8A6 ctrl Y return 
8A7 < 900 . 9F1 ctrl Y return 



(program A, "in place") 
(program B, not "in place") 



Note that any Data Segments within the two programs would necessitate 
additional relocation and Move commands. 
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EXAMPLE 7. Code Deletion 

Four bytes of code are to be removed from within a program, and the program 
is to contract accordingly. 



SOURCE SEGMENTS 



DEST SEGMENTS 



$800 — ► 


CODE 
$800-$88F 




DATA 
$890-$8AF 


Remove 4 
bytes here ^ 
($8C0-$8C3) 


CODE 

$8B0-$90F 


DATA 
$910-$93F 


SQ7P k. 


CODE 
$940-$97F 



$800 



$97B 



CODE 
$800-$88F 



DATA 
$890-$8AF 



CODE 
$8B0-$90B 



DATA 
$90C-$93B 



CODE 
$93C-$97B 



SOURCE BLOCK: $8C4-$97F 

SOURCE SEGMENTS: $800-$88F (code) 

$890-$8AF (data) 

$8B0-$8BF (code) 

$8C4-$90F (code) 

$910-$93F (data) 

$940-$97F (code) 



DEST BLOCK: $8C0-$97B 

DEST SEGMENTS: $800-$88F (code) 

$890-$8AF (data) 

$8B0-$8BF (code) 

$8C0-$90B (code) 

$90C-$93B (data) 

$93C-$97B (code) 



(a) Initialize Code-Relocation feature: 
reset D4D5G return 

(b) Specify Destination and Source Blocks: 
8C0 < 8C4 . 97F ctrl Y * return 

(c) Relocate Code Segments and Move Data Segments, in ascending address 
sequence: 



800 <• 88F ctrl Y return 

. 8AF M return 

. 8BF ctrl Y return 

8C0 < 8C4 . 90F ctrl Y return 

. 93F M return 

• 97F ctrl Y return 



(first segment, code, "in place") 

(data) 

(code) 
(first segment, code, not "in place") 

(data) 

(code) 



(d) Relative branches crossing the deletion boundary will be incorrect, 
since the relocation process does not modify them (only zero-page and 
absolute memory references). The user must patch these by hand. 
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EXAMPLE 8. Relocating the APPLE II Monitor 
($F800-$FFFF) to Run In RAM ($800-$FFF) 

SOURCE BLOCK: $F700-$FFFF DEST BLOCK: $700-$FFF 

(see EXAMPLE 2) 



SOURCE SEGMENTS: 



$F800-$F961 (code) 
$F962-$FA42 (data) 
$FA43-$FB18 (code) 
$FB19-$FB1D (data) 
$FB1E-$FFCB (code) 
$FFCC-$FFFF (data) 



DEST SEGMENTS: $800-$961 (code) 

$962-$A42 (data) 

$A43-$B18 (code) 

$B19-$B1D (data) 

$B1E-$FCB (code) 

$FCC-$FFF (data) 



IMMEDIATE ADDRESS REFERENCES (see EXAMPLE 3): 



$FFBF 
$FEA8 
(more if not relocating 
to page boundary) 



(a) Initialize the Code-Relocation feature: 
reset D4D5G return 

(b) Specify Destination and Source Block parameters: 

700 < F700 . FFFF ctrl Y * return 



(c) Relocate Code Segments and move Data Segments, in ascending' address 
sequence: 



800 < F800 . F961 ctrl Y return 

. FA42 M return 

. FB18 ctrl Y return 

. FB1D M return 

. FFCB ctrl Y return 

. FFFF M return 



(first segment, code) 

(data) 

(code) 

(data) 

(code) 

(data) 



(d) Change immediate address references: 



FBF : E return 
EA8 : E return 



(was $FE) 
(was $FE) 
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PART C: PLOTTING POINTS AND LINES 



TECHNICAL INFORMATION 

The following details illustrate special technical features of the APPLE II 
which are used by the Code-Relocation feature. 

1. The APPLE II Monitor command 

Addr4 < Addrl . Addr2 ctrl Y return (Addrl, Addr2, and Addr4 

are addresses) 

vectors to location $3F8 with the value Addrl in locations $3C (low) and $3D 
(high), Addr2 in locations $3E (low) and $3F (high), and Addr4 in locations 
$42 (low) and $43 (high). Location $34 (YSAV) holds an index to the next 
character of the command buffer (after the Ctrl Y). The command buffer (IN) 
begins at $200. 



2. If ctrl Y is followed by * , then the Block parameters are simply 
preserved as follows: 

Parameter Preserved at SWEET 16 Reg Name 

DEST BLOCK BEG $8, $9 TOBEG 

SOURCE BLOCK BEG $2, $3 FRMBEG 

SOURCE BLOCK END $4, $5 FRMEND 



3. If ctrl Y is not followed by * , then a segment relocation is initiated 
at REL0C2 ($3BB). Throughout, Addrl ($3C, $3D) is the Source Segment 
pointer and Addr4 ($42, $43) is the Destination Segment pointer. 



4. INSDS2 is an APPLE II Monitor subroutine which determines the length of 
a 6502 instruction, given the opcode in the A-REG, and stores that opcode's 
instruction length in the variable LENGTH (location $2F) . 

Instruction Type LENGTH 
in A-REG (in $2F) 

Invalid 

1 byte 

2 byte 1 

3 byte 2 
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5. The code from XLATE to SW16RT ($3D9-$3E6) uses the APPLE II 16-bit 
interpretive machine, SWEET16. The target address of the 6502 instruction 
being relocated (locations $C low and $D high) occupies the SWEET16 register 
named ADR. If ADR is between FRMBEG and FRMEND (inclusive) then it is 
replaced by 

ADR - FRMBEG + TOBEG 

6. NXTA4 is an APPLE II Monitor subroutine which increments Addrl (Source 
Segment index) and Addr4 (Destination Segment index). If Addrl exceeds 
Addr2 (Source Segment end), then the carry is set; otherwise, it is cleared. 



ALGORITHM USED BY THE CODE-RELOCATION FEATURE 

1. Set SOURCE PTR to beginning of Source Segment 
and DEST PTR to beginning of Destination Segment. 

2. Copy 3 bytes from Source Segment (using SOURCE PTR) to temp INST area. 

3. Determine instruction length from opcode (1, 2 or 3 bytes). 

4. If two-byte instruction with non-zero-page addressing mode 
(immediate or relative) then go to step 7. 

5. If two-byte instruction then clear 3rd byte 
so address field is 0-255 (zero page). 

6. If address field (2nd and 3rd bytes of INST area) 
falls within Source Block , then substitute 

ADR - SOURCE BLOCK BEG + DEST BLOCK BEG 

7. Move "length" bytes from INST area to Destination Segment 
(using DEST PTR). Update SOURCE and DEST PTR's by length. 

8. If SOURCE PTR is less than or equal to SOURCE SEGMENT END 
then goto step 2., else done. 
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COMMENTS: 



Each Move or relocation is carried out sequentially, one byte at a time, 
beginning with the byte at the smallest source address. As each source byte 
is Moved or relocated, it overwrites any information that was in the 
destination location. This is usually acceptable in these kinds of Moves 
and relocations: 

1. Source Segments and Destination Segments do not share any common 
locations (no source location is overwritten). 

2. Source Segments are in locations identical to the locations of 
the Destination Segments (each source byte overwrites itself). 

3. Source Segments are in locations whose addresses are larger 
than the addresses of the Destination Segments' locations (any 
overwritten source bytes have already been Moved or relocated). 
This is a move toward smaller addresses. 



If, however, the Source Segments and the Destination Segments share some 
common locations, and the Source Segments occupy locations whose addresses 
are smaller than the addresses of the Destination Segments' locations, 
then the source bytes occupying the common locations will be overwritten 
before they are Moved or relocated- If you attempt such a relocation, you 
will lose your program and data in the memory area common to both Source 
Segments and Destination Segments. To accomplish a small Move or relocation 
toward larger addresses, you must Move or relocate to an area of memory 
well away from the Source Segments (no address in common); then Move the 
entire relocated program back to its final resting place. 



Note: the example instructions in this chapter often include spaces for 
easier reading; do not type these spaces. 
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TESTING THE APPLE'S MEMORY 



With this program, you can easily discover any problems in the RAM (for 
Random Access Memory) chips in your APPLE. This is especially useful when 
adding new memory. While a failure is a rare occurrence, memory chips are 
both quite complex and relatively expensive. This program will point out 
the exact memory chip or chips, if any, that have malfunctioned. 

Memory chips are made in two types: one type can store 4K (4096) bits of 
information, the other can store 16K (16384) bits of information. Odd as it 
seems, the two types look alike, except for a code number printed on them. 

The APPLE has provisions for inserting as many as 24 memory chips of either 
type into its main printed-circuit board, in three rows of eight sockets 
each. An eight-bit byte of information consists of one bit taken from each 
of the eight memory chips in a given row. For this reason, memory can be 
added only in units of eight identical memory chips at a time, filling an 
entire row. Eight 4K memory chips together in one row can store 4K bytes 
of information. Eight 16K memory chips in one row can store 16K bytes of 
information. 

Inside the APPLE II, the three rows of sockets for memory chips are row "C", 
row "D" and row "E". The rows are lettered along the left edge of the 
printed-circuit board, as viewed from the front of the APPLE. The memory 
chips are installed in the third through the tenth sockets (counting from 
the left) of rows C, D and E. These sockets are labelled "RAM". Row C must 
be filled; and row E may be filled only if row D is filled. Depending on 
the configuration of your APPLE'S memory, the eight RAM sockets in a given 
row of memory must be filled entirely with 4K memory chips, entirely with 
16K memory chips, or all eight RAM sockets may be empty. 

To test the memory chips in your computer, you must first initialize the RAM 
Test program. Press the RESET key to invoke the Monitor, and then type 

D5BCG return 

Next, specify the hexadecimal starting address for the portion of memory 
that you wish to test. You must also specify the hexadecimal number of 
"pages" of memory that you wish tested, beginning at the given starting 
address. A page of memory is 256 bytes ($100 Hex). Representing the 
address by "a" and the number of pages by "p" (both in hexadecimal), start 
the RAM test by typing 

a . p ctrl Y return 

Note 1: to type "ctrl Y", type Y while holding down the CTRL key; ctrl Y is 
not displayed on the TV screen. Type "return" by pressing the RETURN key. 
The example instructions in this chapter often include spaces for easier 
reading; do not type these spaces. 

Note 2: test length p*100 must not be greater than starting address a. 
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For example, 

2000.10 ctrl Y return 

tests hexadecimal 1000 bytes of memory (4096, or "4K" bytes, In decimal), 
starting at hexadecimal address 2000 (8192, or "8K", in decimal). 

If the asterisk returns (after a delay that may be a half minute or so) 
without an error message (see ERROR MESSAGES discussion) , then the specified 
portion of memory has tested successfully. 
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A 4K RAM Row contains 10 Hex pages (hex 1000 bytes, or decimal 4096 bytes). 
A 16K RAM Row contains 40 Hex pages (hex 4000 bytes, or decimal 16384 
bytes). 



A complete test for a 48K system would be as follows: 



400.4 ctrl Y return \^- 
800.8 ctrl Y return 
1000.10 ctrl Y return 
2000.20 ctrl Y return, 
4000.40 ctrl Y return 4- 



— This tests the screen area of memory 
Th ese first four tests examine 

the first 16K row of memory (Row C) 

— This tests the second 16K row of memory (Row D) 
8000.40 ctrl Y return 4 ?-This tests the third 16K row of memory (Row E) 

Systems containing more than 16K of memory should also receive the following 
special test that looks for problems at the boundary between rows of memory: 

3000.20 ctrl Y return 

Systems containing more than 32K of memory should receive the previous 
special test, plus the following: 



7000.20 ctrl Y return 



31 

"A2MAN 030-0026-01 3 31 .PICT" 297 KB 2001 -07-22 dpi: 600h x 600v pix: 2823h x 4059v 



Author: Apple Computer, Inc. • Document # 030-0026-01 



Page 0047 of 0113 



Apple 2 Technical Manual • Programmer's Aid # 1 • 1978 



Tests may be run separately or they may be combined into one instruction. 
For instance, for a 48K system you can type: 

400.4 ctrl Y 800.8 ctrl Y 1000.10 ctrl Y- 2000.20 Ctrl Y 3000.20 ctrl Y 
4000.40 ctrl Y 7000.20 ctrl Y 8000.40 ctrl Y return 

Remember, ctrl Y will not print on the screen, but it must be typed. With 
the single exception noted in the section TESTING FOR INTERMITTENT FAILURE 
spaces are shown for easier reading but should not_ be typed. 

During a full test such as the one shown above, the computer will beep at 
the completion of each sub-test (each sub-test ends with a ctrl Y). At the 
end of the full test, if no errors have been found the APPLE will beep and 
the blinking cursor will return with the Monitor prompt character ( * ). It 
takes approximately 50 seconds for the computer to test the RAM memory in a 
16K system; larger systems will take proportionately longer. 



ERROR MESSAGES 



TYPE I - Simple Error 

During testing, each memory address in the test range is checked by writing 
a particular number to it, then reading the number actually stored at that 
address and comparing the two. 

A simple error occurs when the number written to a particular memory address 
differs from the number which is then read back from that same address. 
Simple errors are reported in the following format: 

xxxx yy zz ERR r-c 

where xxxx is the hexadecimal address at which the error was detected; 
yy is the hexadecimal data written to that address; 
zz is the hexadecimal data read back from that address; and 
r-c is the row and column where the defective memory chip was 
found. Count from the left, as viewed from the front of 
the APPLE: the leftmost memory chip is in column 3, the 
rightmost is in column 10. 

Example: 

201F 00 10 ERR D-7 
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TYPE II - Dynamic Error 

This type of error occurs when the act of writing a number to one memory 
address causes the number read from a different address to change. If no 
simple error is detected at a tested address, all the addresses that differ 
from the tested address by one bit are read for changes indicating dynamic 
errors. Dynamic errors are reported in the following format: 

xxxx yy zz vwv qq ERR r-c 

where xxxx is the hexadecimal address at which the error was detected; 
yy is the hexadecimal data written earlier to address xxxx; 
zz is the hexadecimal data now read back from address xxxx; 
vwv is the current hexadecimal address to which data qq was 
successfully written; 
qq is the hexadecimal data successfully written to, and 
read back from, address vwv; and 
r-c is the row and column where the defective memory chip was 
found. Count from the left, as viewed from the front of 
the APPLE: the leftmost memory chip is in column 3, the 
rightmost is in column 10. In this type of error, the 
indicated row (but not the column) may be incorrect. 

This is similar to Type I, except that the appearance of vwv and qq 
indicates an error was detected at address xxxx after data was successfully 
written at address Vwv. 

Example: 

5(151 00 08 5451 00 ERR E-6 

After a dynamic error, the indicated row (but not the column) may be 
incorrect. Determine exactly which tests check each row of chips (according 
to the range of memory addresses corresponding to each row), and run those 
tests by themselves. Confirm your diagnosis by replacing the suspected 
memory chip with a known good memory chip (you can use either a 4K or a 16K 
memory chip, for this replacement). Remember to turn off the APPLE'S power 
switch and to discharge yourself before handling the memory chips. 

TESTING FOR INTERMITTENT FAILURE 
(Automatically Repeating Test) 

This provides a way to test memory over and over again, indefinitely. You 
will type a complete series of tests, just as you did before, except that 
you will: 

a. precede the complete test with the letter N 

b. follow the complete test with 34:0 

c. type at least one space before pressing the RETURN key. 
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Here is the format: 

N (memory test to be repeated) 34:0 (type one space) return 

NOTE: You must type at least one space at the end of the line, prior to 
pressing the RETURN key. This is the only space that should be typed (all 
other spaces shown within instructions in this chapter are for easier 
reading only; they should not be typed). 

Example (for a 48K system): 

N 400.4 ctrl Y 800.8 Ctrl Y 1000.10 ctrl Y 2000.20 Ctrl Y 3000.20 Ctrl Y 
4000.40 ctrl Y 7000.20 ctrl Y 8000.40 ctrl Y 34:0 return 

Run this test for at least one hour (preferably overnight) with the APPLE's 
lid in place. ' This allows the system and the memory chips to reach maximum 
operating temperature. 

Only if a failure occurs will the APPLE display an error message and rapidly 
beep three times; otherwise, the APPLE will beep once at the successful end 
of each sub-test. To stop this repeating test, you must press the RESET 
key. 

COMMENTS: 

1. You cannot test the APPLE'S memory below the address of 400 (Hex), since 
various pointers and other system necessities are there. In any case, if 
that region of memory has problems, the APPLE won't function. 

2. For any subtest, the number of pages tested cannot be greater than the 
starting address divided by 100 Hex. 2000.30 ctrl Y will not work, but 
5000.30 ctrl Y will. 

3. Before changing anything inside the APPLE, make sure the APPLE is 
plugged into a grounded, 3-wire power outlet, and that the power switch on 
the back of the computer is turned off. Always touch the outside metal 
bottom plate of the APPLE II, prior to handling any memory chips. This is 
done to remove any static charge that you may have acquired. 

EVEN A SMALL STATIC CHARGE CAN DESTROY MEMORY CHIPS 

4. Besides the eight memory chips, some additions of memory require 
changing three other chip-like devices called Memory Configuration Blocks. 
The Memory Configuration Blocks tell the APPLE which type of memory chip (4K 
or 16K) is to be plugged into each row of memory. A complete package for 
adding memory to your computer, containing all necessary parts and detailed 
instructions, can be purchased from APPLE Computer Inc. To add 4K of 
memory, order the 4K Memory Expansion Module (P/N A2M0014). To add 16K of 
memory, order the 16K Memory Expansion Module (P/N A2M0016). 
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CHAPTER 

MUSIC 



56 Generating musical tones 
3 7 Comments 
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GENERATING MUSICAL TONES 



The Music feature Is most easily used from within an Integer BASIC program. 
It greatly simplifies the task of making the APPLE II into a music-playina 
device. 

There are three things the computer needs to know before playing a note: 
pitch (how high or low a note), duration (how long a time it is to sound), 
and timbre. Timbre is the quality of a sound that allows you to distinguish 
one instrument from another even if they are playing at the same pitch and 
loudness. This Music feature does not permit control of loudness. 

It is convenient to set up a few constants early in the program: 

MUSIC - -10473 

PITCH ■ 767 a-o« *8<> K 

TIME - 766 1-°*"" *«</? 

TIMBRE - 765 voio: Jti04 

There are 50 notes available, numbered from 1 to 50. The statement 
POKE PITCH, 32 

will set up the Music feature to produce (approximately) the note middle C. 
Increasing the pitch value by one increases the pitch by a semitone. Thus 

POKE PITCH, 33 

would set up the Music feature to produce the note C sharp. Just over four 
chromatic octaves are available. The note number indicates a rest (a 
silence) rather than a pitch. 

The duration of the note is set by 
POKE TIME, t 

Where t is a number from 1 to 255. The higher the number, the longer the 
note. A choice of t ■ 170 gives notes that are approximately one second 
long. To get notes at a metronome marking of MM, use a duration of 
10200/MM. For example, to get 204 notes per minute (approximately) use the 
command 

POKE TIME, 10200/204 
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There are five timbres, coded by the numbers 2, 8, 16, 32 and 64. They are 
not very different from one another. With certain timbres, a few of the 
extremely low or high notes do not give the correct pitch. Timbre 32 does 
not have this problem. 

POKE TIMBRE, 32 

When the pitch, time, and timbre have been set, the statement 

CALL MUSIC 

will cause the specified note to sound. 

The following program plays a chromatic scale of four octaves: 

10 MUSIC = -10473: PITCH = 767: TIME = 766: TIMBRE = 765 

20 POKE TIME, 40: POKE TIMBRE, 32 

30 FOR I = 1 TO 49 

40 POKE PITCH, I 

50 CALL MUSIC 

60 NEXT I: END 



Where X is a number from 51 through 255, 

POKE PITCH, X 

will specify various notes, in odd sequences. In the program above, change 
line 40 to 

40 POKE PITCH, 86 

for a demonstration. 



COMMENTS: 



Some extremely high or low notes will come out at the wrong pitch With 
certain timbres. 
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PART A: SETTING UP PARAMETERS, SUBROUTINES, 
AND COLORS 

Programmer's Aid #1 provides your APPLE with the ability to do 
high-resolution color graphics from Integer BASIC. You may plot dots, lines 
and shapes in a wide variety of detailed forms, in 6 different colors (4 
colors on systems below S/N 6000), displayed from two different "pages" of 
memory. The standard low-resolution graphics allowed you to plot 40 squares 
across the screen by 47 squares,, from top to bottom of the screen. This 
high-resolution graphics display mode lets you plot in much smaller dots, 
280 horizontally by 192 vertically. Because 8K bytes of memory (in 
locations from 8K to 16K, for Page 1) are dedicated solely to maintaining 
the high-resolution display, your APPLE must contain at least 16K bytes of 
memory. To use the Page 2 display (in locations from 16K to 24K), a system 
with at least 24K bytes of memory is needed. If your system is using the 
Disk Operating System (DOS), that occupies the top 10. 5K of memory: you will 
need a minimum 32K system for Page 1, or 36K for Page 1 and Page 2. See the 
MEMORY MAP on page 63 for more details. 



POSITIONING THE HIGH-RESOLUTION PARAMETERS 

The first statement of an Integer BASIC program intending to use the 
Programmer's Aid High-Resolution subroutines should be: 

X0 = Y0 = COLR = SHAPE = ROT = SCALE 

The purpose of this statement is simply to place the six BASIC variable 
names used by the High-Resolution feature (with space for their values) into 
APPLE'S "variable table" in specific, known locations. When line is 
executed, the six High-Resolution graphics parameters will be assigned 
storage space at the very beginning of the variable table, in the exact 
order specified in line 0. Your BASIC program then uses those parameter 
names to change the six parameter values in the variable table. However, 
the High-Resolution subroutines Ignore the parameter names, and look for 
the parameter values in specific variable-table locations . That is why 
the program's first line must place the six High-Resolution graphics 
parameters in known variable-table locations. Different parameter names may 
be used, provided that they contain the same number of characters. Fixed 
parameter-name lengths are also necessary to insure that the 
parameter-value storage locations in the variable table do not change. For 
example, the name HI could be used in place of X0, but X or XCOORD could 
not. 
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The parameters SHAPE, ROT, and SCALE are used only by the subroutines that 
draw shapes (DRAW and DRAW1, see PART E). These parameters may be omitted 
from programs using only the PLOT and LINE features: 

X0 = Y0 = COLR 

Omitting unnecessary parameter definitions speeds up the program during 
execution. However, you can omit only those unused parameters to the right 
of the last parameter which is_ used. Each parameter that is used must 
be in its proper place, relative to the first parameter in the definition 
list. 



DEFINING SUBROUTINE NAMES 

After the six parameters have been defined, the twelve High-Resolution 
subroutines should be given names, and these names should be assigned 
corresponding subroutine entry addresses as values. Once defined in this 
way, the various subroutines can be called by name each time they are used, 
rather than by numeric address. When subroutines are called by name, the 
program is easier to type, more likely to be error-free, and easier to 
follow and to debug. 

5 INIT = -12288 : CLEAR = -12274 : BKGND = -11471 

6 POSN = -11527 : PLOT = -11506 : LINE = -11500 

7 DRAW = -11465 : DRAW1 = -11462 

8 FIND = -11780 : SHLOAD = -11335 

Any variable names of any length may be used to call these subroutines. If 
you want maximum speed, do not define names for subroutines that you will 
not use in your program. 



DEFINING COLOR NAMES 

Colors may also be specified by name, if a defining statement is added to 
the program. Note that GREEN is preceded by LET to avoid a SYNTAX ERROR, 
due to conflict with the GR command. 

10 BLACK = : LET GREEN = 42 : VIOLET = 85 

11 WHITE = 127 : ORANGE = 170 : BLUE = 213 

12 BLACK2 = 128 : WHITE2 = 255 

Any integer from through 255 may be used to specify a color, but most of 
the numbers not named above give rather unsatisfactory "colors". On systems 
below S/N 6000, 170 will appear as green and 213 will appear as violet. 

41 

"A2MAN 030-0026-01 3 41 .PICT" 327 KB 2001 -07-22 dpi: 600h x 600v pix: 2986h x 421 2v 

Author: Apple Computer, Inc. • Document # 030-0026-01 | Page 0057 of 0113 



Apple 2 Technical Manual • Programmer's Aid # 1 • 1978 



Once again, unnecessary variable definitions should be omitted, as they will 
slow some programs. Therefore, a program should not define VIOLET - 85 
unless it uses the color VIOLET. 

The following example illustrates condensed initialization for a program 
using only the INIT, PLOT, and DRAW subroutines, and the colors GREEN and 
WHITE. 

X0 = Y0 = COLR = SHAPE = ROT = SCALE 

5 INIT = -12288 : PLOT = -11506 : DRAW = -11465 

10 LET GREEN = 42 : WHITE =127 

(Body of program would go here) 



SPEEDING UP YOUR PROGRAM 

Where maximum speed of execution is necessary, any of the following 
techniques will help: 

1. Omit the name definitions of colors and subroutines, and refer to colors 
and subroutines by numeric value, not by name. 

2. Define the most frequently used program variable names before defining 
the subroutine and color names (lines 5 through 12 in the previous 
examples). The example below illustrates how to speed up a program that 
makes very frequent use of program variables I, J, and K: 

X0 = Y0 = COLR = SHAPE = ROT = SCALE 
2 I = J = K 

5 INIT = -12288 : CLEAR = -12274 

6 BKGND = -11471 : POSN = -11527 
10 BLACK = : VIOLET = 85 

3. Use the High-Resolution graphics parameter names as program variables 
when possible. Because they are defined first, these parameters are the 
BASIC variables which your program can find fastest. 
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PART B: PREPARING THE SCREEN FOR GRAPHICS 



THE INITIALIZATION SUBROUTINE 

In order to use CLEAR, BKGND, POSN, PLOT, or any of the other 
High-Resolution subroutine CALLs, the INITialization subroutine itself must 
first be CALLed: 

CALL IN IT 

The INITialization subroutine turns on the high-resolution display and 
clears the high-resolution screen to black. INIT also sets up certain 
variables necessary for using the other High-Resolution subroutines. The 
display consists of a graphics area that is 280 x-positions wide (X0-0 
through X0-279) by 160 y-positions high (Y0-0 through Y0-159), with an area 
for four lines of text at the bottom of the screen. Y0 values from 
through 191 may be used, but values greater than 159 will not be displayed 
on the screen. The graphics origin (X0=0, Y0-0) is at the to£ left corner 
of the screen. 



CHANGING THE GRAPHICS SCREEN 

If you wish to devote the entire display to graphics (280 x-positions wide 
by 192 y-positions high), use 

POKE -16302, 

The split graphics-plus-text mode may be restored at any time with 

POKE -16301, 
or another 

CALL INIT 

When the High-Resolution subroutines are first initialized, all graphics are 
done in Page 1 of memory ($2000-3FFF) , and only that page of memory is 
displayed. If you wish to use memory Page 2 ($4000-5FFF), two POKEs allow 
you to do so: 

POKE 806, 64 

causes subsequent graphics instructions to be executed in Page 2, unless 
those instructions attempt to continue an instruction from Page 1 (for 
instance, a LINE is always drawn on the same memory page where the last 
previous point was plotted). After this POKE, the display will still show 
memory Page 1. 
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To see what you are plotting on Page 2, 
POKE -16299, 

will cause Page 2 to be displayed on the screen. You can switch the screen 
display back to memory Page 1 at any time, with 

POKE -16300, 

while 

POKE 806, 32 

will return you to Page 1 plotting. This last POKE is executed 
automatically by IN1T. 



CLEARING THE SCREEN 

If at any time during your program you wish to clear the current plotting 
page to black, use 

CALL CLEAR 

This immediately erases anything plotted on the current plotting page. 
INIT first resets the current plotting page to memory Page 1, and then 
clears Page 1 to black. 

The entire current plotting page can be set to any solid background color 
with the BKGND subroutine. After you have INITialized the High-Resolution 
subroutines, set COLR to the background color you desire, and then 

CALL BKGND 

The following program turns the entire display violet: 

X0 = Y0 - COLR : REM SET PARAMETERS 

5 INIT = -12288 : BKGND = -11471 : REM DEFINE SUBROUTINES 

10 VIOLET = 85 : REM DEFINE COLOR 

20 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 

30 COLR = VIOLET : REM ASSIGN COLOR VALUE 

40 CALL BKGND : REM HAKE ALL OF DISPLAY VIOLET 

50 END 
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PART C: PLOTTING POINTS AND LINES 



Points can be plotted anywhere on the high-resolution display, in any valid 
color, with the use of the PLOT subroutine. The PLOT subroutine can only be 
used after a CALL 1NIT has been executed, and after you have assigned 
appropriate values to the parameters X0, Y0 and COLR. X0 must in the range 
from through 279, Y0 must be in the range from through 191, and COLR 
must be in the range from through 255, or a 

*** RANGE ERR 

message will be displayed and the program will halt. 

The program below plots a white dot at X-coordinate 35, Y-coordinate 55, and 
a violet dot at X-coordinate 85, Y-coordinate 90: 

X0 = Y0 = COLR : REM SET PARAMETERS 

5 INIT = -12288 : PLOT = -11506 : REM DEFINE SUBROUTINES 

10 WHITE = 127 : VIOLET = 85 : REM DEFINE COLORS 

20 CALL INIT : REM INITIALIZE SUBROUTINES 

30 COLR = WHITE : REM ASSIGN PARAMETER VALUES 

40 X0 = 35 : Y0 = 55 

50 CALL PLOT : REM PLOT WITH ASSIGNED PARAMETER VALUES 

60 COLR = VIOLET : REM ASSIGN NEW PARAMETER VALUES 

70 X0 = 85 : Y0 = 90 

80 CALL PLOT : REM PLOT WITH NEW PARAMETER VALUES 

90 END 

The subroutine POSN is exactly like PLOT, except that nothing is placed on 
J* 8 " ee ";, C0LR mu8t be specified, however, and a subsequent DRAW1 (see 
PART E) will take its color from the color used by POSN. This subroutine is 
often used when establishing the origin-point for a LINE. 



Connecting any two points with a straight line is done with the LINE 
subroutine. As with the PLOT subroutine, a CALL INIT must be executed, and 
X0, Y0, and COLR must be specified. In addition, before the LINE subroutine 
£fn.r be CALLed » the lln e's point of origin must have been plotted with a CALL 
PLOT or as the end point of a previous line or shape. Do not attempt to use 
CALL LINE without first plotting a point for the line's origin, or the line 
may be drawn in random memory locations, not necessarily restricted to the 
current memory page. Once again, X0 and Y0 (the coordinates of the 
termination point for the line), and COLR must be assigned legitimate 
values, or an error may occur. 
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The following program draws a grid of green lines vertically and violet 
lines horizontally, on a white background: 

X0 = Y0 = COLR : REM SET PARAMETERS, THEN DEFINE SUBROUTINES 

5 INIT = -12288 : BKGND = -11471 : PLOT = -11506 : LINE = -11500 

10 LET GREEN = 42 : VIOLET = 85 : WHITE = 127 : REM DEFINE COLORS 

20 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 

30 POKE -16302, : REM SET FULL-SCREEN GRAPHICS 

40 COLR = WHITE : CALL BKGND : REM MAKE THE DISPLAY ALL WHITE 

50 COLR = GREEN : REM ASSIGN PARAMETER VALUES 

60 FOR X0 = TO 270 STEP 10 

70 Y0 = : CALL PLOT : REM PLOT A STARTING-POINT AT TOP OF SCREEN 

80 Y0 = 190 : CALL LINE : REM DRAW A VERTICAL LINE TO BOTTOM OF SCREEN 

90 NEXT X0 : REM MOVE RIGHT AND DO IT AGAIN 

100 COLR = VIOLET : REM ASSIGN NEW PARAMETER VALUES 

110 FOR Y0 = TO 190 STEP 10 

120 X0 = : CALL PLOT : REM PLOT A STARTING-POINT AT LEFT EDGE OF SCREEN 

130 X0 = 270 : CALL LINE : REM PLOT A HORIZONTAL LINE TO RIGHT EDGE 

140 NEXT Y0 : REM MOVE DOWN AND DO IT AGAIN 

150 END 



PART D: CREATING, SAVING AND LOADING SHAPES 



INTRODUCTION 

The High-Resolution feature's subroutines provide the ability to do a wide 
range of high-resolution graphics "shape" drawing. A "shape" is considered 
to be any figure or drawing (such as an outline of a rocket ship) that the 
user wishes to draw on the display many times, perhaps in different sizes, 
locations and orientations. Up to 255 different shapes may be created, 
used, and saved in a "Shape Table", through the use of the High-Resolution 
subroutines DRAW, DRAW1 and SHLOAD, in conjunction with parameters SHAPE, 
ROT and SCALE. 

In this section, PART D, you will be shown how to create, save and load a 
Shape Table. The following section, PART E, demonstrates the use of the 
shape-drawing subroutines with a predefined Shape Table. 
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HOW TO CREATE A SHAPE TABLE 

Before the High-Resolution shape-drawing subroutines can be used, a shape 
must be defined by a "shape definition." This shape definition consists of 
a sequence of plotting vectors that are stored in a series of bytes in 
APPLE'S memory. One or more such shape definitions, with their index, make 
up a "Shape Table" that can be created from the keyboard and saved on disk 
or cassette tape for future use. 

Each byte in a shape definition is divided into three sections, and each 
section can specify a "plotting vector": whether or not to plot a point, and 
also a direction to move (up, down, left, or right). The shape-drawing 
subroutines DRAW and DRAW1 (see PART E) step through each byte in the shape 
definition section by section, from the definition's first byte through its 
last byte. When a byte that contains all zeros is reached, the shape 
definition is complete. 

This is how the three sections A, B and C are arranged within one of the 
bytes that make up a shape definition: 



Section: 



7 6 



5 4 3 



2 1 



Bit Number: 
Specifies: D DP I) D IP I) b~ 



Each bit pair DD specifies a direction to move, and each bit P specifies 
whether or not to plot a point before moving, as follows: 

If DD - 00 move up 

- 01 move right If P - don't plot 

= 10 move down - 1 do plot 

=11 move left 

Notice that the last section, C (the two most significant bits), does not 
have a P field (by default, P=0), so section C can only specify a move 
wit hout plotting. 

Each byte can represent up to three plotting vectors, one in section A, one 
in section B, and a third (a move only) in section C. 

DRAW and DRAW1 process the sections from right to left (least significant 
bit to most significant bit: section A, then B, then C). At any section in 
the byte, IF ALL THE REMAINING SECTIONS OF THE BYTE CONTAIN ONLY ZEROS, THEN 
THOSE SECTIONS ARE IGNORED. Thus, the byte cannot end with a move in 
section C of 00 (a move up, without plotting) because that section, 
containing only zeros, will be ignored. Similarly, if section C is 00 
(ignored), then section B cannot be a move of 000 as that will also be 
ignored. And a move of 000 in section A will end your shape definition 
unless there is a 1-bit somewhere in section B or C. 
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Suppose you want to draw a shape like this: 






First, draw it on graph paper, one 
dot per square. Then decide where 
to start drawing the shape. Let's 
start this one at the center. Next, 
draw a path through each point in 
the shape, using only 90 degree 
angles on the turns: 



r~*~~*~ — I 

i < 

i < 



£S 



Next, re-draw the shape as a series 
of plotting vectors, each one moving 
one place up, down, right, or left, 
and distinguish the vectors that 
plot a point before moving (a dot 
marks vectors that plot points). 



Now "unwrap" those vectors and write them in a straight line: 

u — ■ mi - ■ — -nn — • 

Next draw a table like the one in Figure 1, below: 



Section C 
Byte 

1 
2 
3 
4 
5 
6 
7 
8 
9 





1 


\ 




•*• 


-*• 




i 


t 


— 


i 


i 




•*• 


•» 




J 


•» 




* 


1 






1 



01 



■This Vector — * 
Cannot Plot 
or Move Up 



B 

111 

100 
100 
101 
010 
110 
011 



A 

111 



100 
101 
II 
110 
110 
111 
000 



Vector 


Code 


t 


000 




001 or 01 


T 


010 or 10 


— 


011 or 11 


t 


100 


•*■ 


101 


i 


110 


■*• 


111 



■^-Denotes End 
of Shape 
Definition 



Move 
Only 



Plot 
& Move 



Figure 1 



For each vector in the line, determine the bit code and place it in the next 
available section in the tabie. If the code will not fit (for example, the 
vector in section C can't plot a point), or is a 00 (or 000) at the end of a 
byte, then skip that section and go on to the next. When you have finished 
coding all your vectors, check your work to make sure it is accurate. 
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Now make another table, as shown in Figure 2, below, and re-copy the vector 
codes from the first table. Recode the vector information into a series of 
hexadecimal bytes, using the hexadecimal codes from Figure 3. 



Bytes Codes 

Section: C B A Recoded 

— - • ' — . ■ — ' — ■ in Hex 

Byte 00010010 * 12 

100111111 - 3F 

2 0010 0000 « 20 

3 0110 0100 - 6 4 

4 0010 1101 - 2D 

5 00010101 - 15 

6 00110110 - 36 

7 00011110 = IE 

8 0000 0111 = 07 

9 0000 0000 = 00 -^Denotes End 
N > . ' of Shape 

Hex: Digit 1 Digit 2 Definition 



Figure 2 



inary 




Hex 


0000 


- 





0001 


= 


1 


0010 


■ 


2 


0011 


- 


3 


0100 


Mt 


4 


0101 


- 


5 


0110 


- 


6 


0111 


SC 


7 


1000 


■ 


8 


1001 


«= 


9 


1010 


B 


A 


1011 


- 


B 


1100 


m 


C 


1101 


■ 


D 


1110 


■ 


E 


1111 


as 


F 



Figure 3 



The series of hexadecimal bytes that you arrived at in Figure 2 is the shape 
definition. There is still a little more information you need to provide 
before you have a complete Shape Table. The form of the Shape Table, 
complete with its index , is shown in Figure 4 on the next page. 

For this example, your index is easy: there is only one shape definition. 
The Shape Table's starting location, whose address we have called S, must 
contain the number of shape definitions (between and 255) in hexadecimal. 
In this case, that number is just one. We will place our shape definition 
Immediately below the index, for simplicity. That means, in this case, the 
shape definition will start in byte S+4: the address of shape definition #1, 
relative to S, is 4 (00 04, in hexadecimal). Therefore, index byte S+2 must 
contain the value 04 and index byte S+3 must contain the value 00. The 
completed Shape Table for this example is shown in Figure 5 on the next 
page. 
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Start-S -► ^yte S+0 
+1 
+2 
+3 
+4 
Index / +5 



+2n 
+2n+l 

S+Dl 



Shape 
Definitions 



S-H32 



S-H)n 



n (0 to FF) 


Unused 


Lower 


2 Digits 


Upper 


2 Digits 


Lower 


2 Digits 


Upper 


2 Digits 


1 . 
1 . 

1 
i • 


• • 

• • 

i 


Lower 


2 Digits 


Upper 


2 Digits 




First Byte 


• 


• 


Last 


Byte=00 


• 1 


First Byte 


• 


• 


Last 


Byte=00 



I- 



I- 



Total Number of 

Shape Definitions 

Index to First Byte of Shape 

Definition #1, Relative to S 

Index to First Byte of Shape 

Definition #2, Relative to S 



Dl 



D2 



Dn: Index to First Byte of Shape 
Definition #n, Relative to S 



♦-Shape Definition #1 



-•-Shape Definition #2 



First Byte 



Last Byte=*00 



♦- Shape Definition #n 



Figure 4 



Start- 



(Store this address 
in $328 and $329) 



■> Byte 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 



01 
00 

04 
00 
12 
3F 
20 
64 
2D 
15 
36 
IE 
07 



♦- Number of Shapes 



I Index to Shape Definition #1, 
' Relative to Start 

♦- First Byte 



.♦-Shape Definition #1 



♦-Last Byte 



Figure 5 
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You are now ready to type the Shape Table into APPLE'S memory. First, 
choose a starting address. For this example, we'll use hexadecimal address 
0800. 

Note: this address must be less than the highest memory address available 
in your system (HIMEM), and not in an area that will be cleared when you use 
memory Page 1 (hexadecimal locations $2000 to $4000) or Page 2 (hexadecimal 
locations $4000 to $6000) for high-resolution graphics. Furthermore, it 
must not be in an area of memory used by your BASIC program. Hexadecimal 
0800 (2048, in decimal) is the lowest memory address normally available to a 
BASIC program. This lowest address is called LOMEM. Later on, we will move 
the LOMEM pointer higher, to the end of our Shape Table, in order to protect 
our table from BASIC program variables. 

Press the RESET key to enter the Monitor program, and type the Starting 
address for your Shape Table: 

0800 

If you press the RETURN key now, APPLE will show you the address and the 
contents of that address. That is how you examine an address to see if 
you have a put the correct number there. If instead you type a colon ( : ) 
followed by a two-digit hexadecimal number, that number will be stored at 
the specified address when you press the RETURN key. Try this: 

0800 return 

(type "return" by pressing the RETURN key). What does APPLE say the 
contents of location 0800 are? Now try this: 

0800:01 return 
0800 return 
0800- 01 

The APPLE now says that the value 01 (hexadecimal) is stored in the location 
whose address is 0800. To store more two-digit hexadecimal numbers in 
successive bytes in memory, just open the first address: 

0800: 
and then type the numbers, separated by spaces: 

0800:01 00 04 00 12 3F 20 6.4 2D 15 36 IE 07 00 return 



51 

"A2MAN 030-0026-01 3 51 .PICT" 279 KB 2001 -07-22 dpi: 600h x 600v pix: 2832h x 41 58v 

Author: Apple Computer, Inc. • Document # 030-0026-01 | Page 0067 of 0113 



Apple 2 Technical Manual • Programmer's Aid # 1 • 1978 



You have just typed your first complete Shape Table... not so bad, was it? 
To check the information in your Shape Table, you can examine each byte 
separately or simply press the RETURN key repeatedly until all the bytes of 
interest (and a few extra, probably) have been displayed: 

0800 return 
0800- 01 

return 

00 04 00 12 3F 20 64 

return 
0808- 2D 15 36 IE 07 00 FF FF 

If your Shape Table looks correct, all that remains is to store the starting 
address of the Shape Table where the shape-drawing subroutines can find it 
(this is done automatically when you use the SHLOAD subroutine to get a 
table from cassette tape). Your APPLE looks for the four hexadecimal digits 
of the table's starting address in hexadecimal locations 328 (lower two 
digits) and 329 (upper two digits). For our table's starting address of 
08 00, this would do the trick: 

328:00 08 

To protect this Shape Table from being erased by the variables in your BASIC 
program, you must also set LOMEM (the lowast memory address available to 
your program) to the address that is one byte beyond the Shape Table's last, 
or largest, address. 

It is best to set LOMEM from BASIC, as an immediate-execution command issued 
before the BASIC program is RUN. LOMEM is automatically set when you invoke 
BASIC (reset Ctrl B return) to decimal 2048 (0800, in hexadecimal). You 
must then change LOMEM to 2048 plus the number of bytes in your Shape Table 
plus one. Our Shape Table was decimal 14 bytes long, so our 
immediate-execution BASIC command would be: 

LOMEM: 2048 + 15 

Fortunately, all of this (entering the Shape Table at LOMEM, resetting LOMEM 
to protect the table, and putting the table's starting address in $328-$329) 
is taken care of automatically when you use the High-Resolution feature's 
SHLOAD subroutine to get the table from cassette tape. 
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SAVING A SHAPE TABLE 



Saving on Cassette Tape 

To save your Shape Table on tape, you must be in the Monitor and you must 
know three hexadecimal numbers: 

1) Starting Address of the table (0800, in our example) 

2) Last Address of the table (080D, in our example) 

3) Difference between 2) and 1) (000D, in our example) 

Item 3, the difference between the last address and the first address of the 
table, must be stored in hexadecimal locations (lower two digits) and 1 
(upper two digits): 

0:0D 00 return 

Now you can "Write" (store on cassette) first the table length that is 
stored in locations and 1, and then the Shape Table itself that is stored 
in locations Starting Address through Last Address: 

0.1W 0800.080DW 

Don't press the RETURN key until you have put a cassette in your tape 
recorder, rewound it, and started it recording (press PLAY and RECORD 
simultaneously). Now press the computer's RETURN key. 



Saving on Disk 

To save your Shape Table on disk, use a command of this form: 

BSAVE filename, A$ startingaddress, L$ tablelength 
For our example, you might type 

BSAVE MYSHAPE1, A$ 0800, L$ 000D 

Note: the Disk Operating System (DOS) occupies the top 10. 5K of memory 
(10752 bytes decimal, or $2A00 hex); make sure your Shape Table is not in 
that portion of memory when you "boot" the disk system. 
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LOADING A SHAPE TABLE 



Loading from Cassette Tape 

To load a Shape Table from cassette tape, rewind the tape, start It playing 
(press PLAY), and (in BASIC, now) type 

CALL -11335 return 

or (if you have previously assigned the value -11335 to the variable SHLOAD) 

CALL SHLOAD return 

You should hear one "beep" when the table's length has been read 
successfully, and another "beep" when the table itself has been read. When 
loaded this way, your Shape Table will load into memory, beginning at 
hexadecimal address 0800. LOMEM is automatically changed to the address of 
the location immediately following the last Shape-Table byte. Hexadecimal 
locations 328 and 329 are automatically set to contain the starting address 
of the Shape Table. 



Loading from Disk 

To load a Shape Table from disk, use a command of the form 

BLOAD filename 
From our previously-saved example, you would type 

BLOAD MYSHAPE1 

This will load your Shape Table into memory, beginning at the address you 
specified after "A$" when you BSAVEd the Shape Table earlier. In our 
example, MYSHAPE1 would BLOAD beginning at address 0800. You must store the 
Shape Table's starting address in hexadecimal locations 328 and 329, 
yourself, from the Monitor: 

328:00 08 return 

If your Shape Table is in an area of memory that may be used by your BASIC 
program (as our example is), you must protect the Shape Table from your 
program. Our example lies at the low end of memory, so we can protect it by 
raising LOMEM to just above the last byte of the Shape Table. This must be 
done after invoking BASIC (reset Ctrl B return) and before RUNning our 
BASIC program. We could do this with the immediate-execution BASIC command 

LOMEM: 2048 + 15 
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FIRST USE OF A SHAPE TABLE 

You are now ready to write a BASIC program using Shape-Table subroutines 
such as DRAW and DRAWl. For a full discussion of these High-Resolution 
subroutines, see the following section, PART E. 

Remember that Page 1 graphics uses memory locations 8192 through 16383 (8K 
to 16K), and Page 2 graphics uses memory locations 16384 through 24575 (16K 
to 24K). Integer BASIC puts your program right at the top of available 
memory; so if your APPLE contains less than 32K of memory, you should 
protect your program by setting HIMEM to 8192. This must be done after you 
invoke BASIC (reset Ctrl B return) and before RUNning your program, with the 
immediate-execution command 

HIMEM: 8192 

Here's a sample program that assumes our Shape Table has already been loaded 
from tape, using CALL SHLOAD. This program will print our defined shape, 
rotate it 5.6 degrees if that rotation is recognized (see ROT discussion, 
next section) and then repeat, each repetition larger than the one before. 

10 X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SET PARAMETERS 

20 INIT = -12288 : DRAW = -11465 : REM DEFINE SUBROUTINES 

30 WHITE = 127 : BLACK = : REM DEFINE COLORS 

40 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 

50 SHAPE = 1 

60 X0 = 139 : Y0 = 79 : REM ASSIGN PARAMETER VALUES 

70 FOR R = 1 TO 48 

80 ROT = R 

90 SCALE = R 

100 COLR = WHITE 

110 CALL DRAW : REM DRAW SHAPE 1 WITH AEOVE PARAMETERS 

120 NEXT R : REM NEW PARAMETERS 

1 30 END 



To pause, and then erase each square after it is drawn, add these lines: 

114 FOR PAUSE = 1 TO 200 : NEXT PAUSE 

116 COLR = BLACK : REM CHANGE COLOR 

118 CALL DRAW : REM RE-DRAW SAME SHAPE, IN NEW COLOR 
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PART E: DRAWING SHAPES FROM A PREPARED 
SHAPE TABLE 

Before either of the two shape-drawing subroutines DRAW or DRAW1 can be 
used, a "Shape Table" must be defined and stored in memory (see PART E: 
CREATING A SHAPE TABLE), the Shape Table's starting address must be 
specified in hexadecimal locations 328 and 329 (808 and 809, in decimal), 
and the High-Resolution subroutines themselves must have been initialized by 
a CALL IN IT. 



ASSIGNING PARAMETER VALUES 

The DRAW subroutine is used to display any of the shapes defined in the 
current Shape Table. The origin or 'beginning point' for DRAWing the shape 
is specified by the values assigned to X0 and Y0, and the rest of the shape 
continues from that point. The color of the shape to be DRAWn is specified 
by the value of COLR. 

The shape number (the Shape Table's particular shape definition that you 
wish to have DRAWn) is specified by the value of SHAPE. For example, 

SHAPE = 3 

specifies that the next shape-drawing command will use the third shape 
definition in the Shape Table. SHAPE may be assigned any value (from 1 
through 255) that corresponds to one of the shape definitions in the current 
Shape Table. An attempt to DRAW a shape that does not exist (by executing a 
shape-drawing command after setting SHAPE ■ 4, when there are only two shape 
definitions in your Shape Table, for instance) will result in a *** RANGE 
ERR message being displayed, and the program will halt. 

The relative size of the shape to be DRAWn is specified by the value 
assigned to SCALE. For example, 

SCALE = 4 

specifies that the next shape DRAWn will be four times the size that is 
described by the appropriate shape definition. That is, each "plotting 
vector" (either a plot and a move, or just a move) will be repeated four 
times. SCALE may be assigned any value from through 255, but SCALE - is 
interpreted as SCALE - 256, the largest size for a given shape definition. 
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You can also specify the orientation or angle of the shape to be DRAWn, by 
assigning the proper value to ROT. For example, 

ROT = 

will cause the next shape to be DRAWn oriented just as it was defined, while 

ROT = 16 

will cause the next shape to be DRAWn rotated 90 degrees clockwise. The 
value assigned to ROT must be within the range to 255 (although ROT-64, 
specifying a rotation of 360 degrees clockwise, is the equivalent of ROT-0). 
For SCALE-1, only four of the 63 different rotations are recognized 
(0,16,32,48); for SCALE-2, eight different rotations are recognized; etc. 
ROT values specifying unrecognized rotations will usually cause the shape to 
be DRAWn with the next smaller recognized rotation. 



ORIENTATIONS OF SHAPE DEFINITION 

ROT - (no rotation 
from shape definition) 

i 

ROT - 48 (270 degrees ^r ^^ ROT - 16 (90 degrees 
clockwise rotation) ^P ^W clockwise rotation) 



ROT - 32 (180 degrees 
clockwise rotation) 



DRAWING SHAPES 

The following example program DRAWs shape definition number three, in white, 
at a 135 degree clockwise rotation. Its starting point, or origin, is at 
(140,80). 

X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SET PARAMETERS 

5 INIT = -12288 : DRAW = -11465 : REM DEFINE SUBROUTINES 

10 WHITE = 127 : REM DEFINE COLOR 

20 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 

30 X0 = 140 : Y0 = 80 : COLR = WHITE : REM ASSIGN PARAMETER VALUES 

40 SHAPE = 3 : ROT = 24 : SCALE = 2 

50 CALL DRAW : REM DRAW SHAPE 3, DOUBLE SIZE, TURNED 135 DEGREES 
60 END 
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LINKING SHAPES 



DRAWl is identical to DRAW, except that the last point previously DRAWn, 
PLOTted or POSNed determines the color and the starting point for the new 
shape. X0, Yd, and COLR, need not be specified, as they will have no effect 
on DRAWl. However, some point must have been plotted before CALLing 
DRAWl, or this CALL will have no effect. 

The following example program draws "squiggles" by DRAWing a small shape 
whose orientation is given by game control #0, then linking a new shape to 
the old one, each time the game control gives a new orientation. To clear 
the screen of "squiggles," press the game-control button. 

10 X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SET PARAMETERS 

20 INIT = -12288 : DRAW = -11465 : DRAWl = -11462 

22 CLEAR = -122 74 : WHITE = 127 : REM NAME SUBROUTINES AND COLOR 

30 FULLSCREEN = -16302 : BUTN = -16287 : REM NAME LOCATIONS 

40 CALL INIT : REM INITIALIZE HIGH-RESOLUTION SUBROUTINES 

50 POKE FULLSCREEN, : REM SET FULL-SCREEN GRAPHICS 

60 COLR = WHITE : SHAPE = 1 : SCALE = 5 

70 X0 = 140 : Y0 = 80 : REM ASSIGN PARAMETER VALUES 

80 CALL CLEAR : ROT = PDL(0) : CALL DRAW : REM DRAW FIRST SHAPE 

90 IF PEEK(BUTN) > 127 THEN GOTO 80 : REM PRESS BUTTON TO CLEAR SCREEN 

100 R = PDL(0) : IF (R < ROT+2) AND (R > ROT-2) THEN GOTO 90 : 

REM WAIT FOR CHANGE IN GAME CONTROL 
110 ROT = R : CALL DRAWl : REM ADD TO "SQUIGGLE" 
120 GOTO 90 : REM LOOK FOR ANOTHER CHANGE 



After DRAWing a shape, you may wish to draw a LINE from the last plotted 
point of the shape to another fixed point on the screen. To do this, once 
the shape is DRAWn, you must first use 

CALL FIND 

prior to CALLing LINE. The FIND subroutine determines the X and Y 
coordinates of the final point in the shape that was DRAWn, and uses it as 
the beginning point for the subsequent CALL LINE. 
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The following example DRAWs a white shape, and then draws a violet LINE from 
the final plot position of the shape to the point (10, 25). 

X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SET PARAMETERS 

5 INIT = -12288 : LINE = -115(30 : DRAW = -11402 : FIND = -11780 

10 VIOLET = 85 : WHITE = 127 : REM DEFINE SUBROUTINES AND COLORS 

20 X0 = 140 : Y0 = 80 : COLR = WHITE : REM ASSIGN PARAMETER VALUES 

30 SHAPE = 3 : ROT = : SCALE = 2 

40 CALL DRAW : REM DRAW SHAPE WITH ABOVE PARAMETERS 

50 CALL FIND : REM FIND COORDINATES OF LAST SHAPE POINT 

60 X0 = 10 : Y0 = 25 : COLR = VIOLET : REM NEW PARAMETER VALUES, FOR LINE 

70 CALL LINE : REM DRAW LINE WITH ABOVE PARAMETERS 

80 END 



COLLISIONS 

Any time two or more shapes intersect or overlap, the new shape has points 
in common with the previous shapes. These common points are called points 
of "collision." 

The DRAW and DRAV71 subroutines return a "collision count" in the hexadecimal 
memory location $32A (810, in decimal). The collision count will be 
constant for a fixed shape, rotation, scale, and background, provided that 
no collisions with other shapes are detected. The difference between the 
"standard" collision value and the value encountered while DRAWing a shape 
is a true collision counter. For example, the collision counter is useful 
for determining whether or not two constantly moving shapes ever touch each 
other. 

110 CALL DRAW : REM DRAW THE SHAPE 

120 COUNT = PEEK(810) : REM FIND THE COLLISION COUNT 
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PART F: TECHNICAL INFORMATION 



LOCATIONS OF THE HIGH-RESOLUTION PARAMETERS 



When the high-resolution parameters are entered (line 0, say), they are 
stored — with space for their values — in the BASIC variable table, just 
above LOMEM (the LOwest MEMory location used for BASIC variable storage). 
These parameters appear in the variable table in the exact order of their 
first mention in the BASIC program. That order must be as shown below, 
because the High-Resolution subroutines look for the parameter values by 
location only. Each parameter value is two bytes in length. The low-order 
byte is stored in the lesser of the two locations assigned. 



VARIABLE-TABLE PARAMETER LOCATIONS 



Parameter 


Locations 


beyond LOMEM 


X0 


$05, 


$06 


Y0 


$0C, 


$0D 


COLR 


$15, 


$16 


SHAPE 


$1F, 


$20 


ROT 


$27, 


$28 


SCALE 


$31, 


$32 
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VARIABLES USED WITHIN THE HIGH-RESOLUTION 
SUBROUTINES 



Variable 
Name 


Hexadecimal 
Location 


SHAPEL, SHAPEH 


LA, IB 


HC0L0R1 


1C 


COUNTH 


ID 


HBASL, HBASH 


26, 27 


HMASK 


30 


QDRNT 


53 


XOL, XOH 


32(3, 321 



YO 

BXSAV 

HCOLOR 
HNDX 

HPAG 



322 

323 

324 
325 

326 



SCALE 


327 


SHAPXL, SHAPXH 


328, 329 


COLLSN 


32A 



Description 
On-the-fly shape pointer. 
On-the-fly color byte. 
High-order byte of step count for LINE. 
On-the-fly BASE ADDRESS 
On-the-fly BIT MASK 
2 LSB's are rotation quadrant for DRAW. 

Most recent X-coordinate. Used for 

initial endpoint of LINE. Updated 

by PLOT, POSN, LINE and FIND, not DRAW. 

Most recent Y-coordinate (see XOL, 
XOH). 

Saves 6502 X-register during high- 
resolution CALLs from BASIC. 

Color specification for PLOT, POSN. 

On-the-fly byte index from BASE 
ADDRESS. 

Memory page for plotting graphics. 
Normally $20 for plotting in Page 1 
of high-resolution display memory 
($2000-$3FFF). 

On-the-fly scale factor for DRAW. 

Start of Shape Table pointer. 

Collision count from DRAW, DRAWl. 
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SHAPE TABLE INFORMATION 



Shape Tape Description 

Record #1 A two-byte-long record that contains the length 

of record #2, Low-order first. 
Record Gap Minumum of .7 seconds in length. 
Record #2 The Shape Table (see below). 



SHAPE TABLE 



EXAMPLE 



Start of Table 

(Address Stored 

in $328-$329) 



0-255 



Unused 



Low 



High 



Low 



High 



First Byte 



Last Byte=0 



First Byte 



Last Byte=0 



Number of Shapes 

Beginning of Shape #1,. 

Relative to Start. 
.Beginning of Shape #2,. 

Relative to Start. 



+ 1 



Shape #1 



Shape #2 



LOMEM • 



-> BASIC Variables* 



(if Table SHLOADed) 



02 

00 
06 
00 

05 
00 
37 
8A 
A6 
EE 

00 
32 
FF 
BB 
ID 
00 



($4A-$4B) 



i n 



•BASIC Variables 



The address of the Shape Table's Start should be stored in locations $328 
and $329. If the SHLOAD subroutine is used to load the table, Start will be 
set to LOMEM (normally this is at $0800) and then LOMEM will be moved to one 
byte after the end of the Shape Table, automatically. 



If you wish to load a Shape Table named MYSHAPES2 from disk, beginning at 
decimal location 2048 (0800 hex), and ending at decimal location 2048 plus 
decimal 15 bytes (as in the example above), you may wish to begin your BASIC 
program as follows: 

D$ = "" : REM QUOTES CONTAIN CTRL D (D$ WILL BE ERASED BY SHAPE TABLE) 

1 PRINT D$; "BLOAD MYSHAPES2 , A 2048" : REM LOADS SHAPE TABLE 

2 POKE 808, 2048 MOD 256 : POKE 809, 2048 / 256 : REM SETS TABLE START 

3 POKE 74, (2048 + 15 + 1) MOD 256 : POKE 75, (2048 +15+1) / 256 

4 POKE 204, PEEK(74) : POKE 205, PEEK(75) : REM SETS LOMEM TO TABLE END+1 

5 X0 = Y0 = COLR = SHAPE = ROT = SCALE : REM SETS PARAMETERS 
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APPLE II MEMORY MAP FOR USING HIGH-RESOLUTION 
GRAPHICS WITH INTEGER BASIC 

Highest RAM 
Memory address: t invnUnp rartp 


This is 49151 ($BFFFr 
on a 48K system 

Booting DOS 


I 

10752 Disk 
($2A00) Operating 
Bytes System 
j (if booted) 


Sets HIMEM here 

HIMEM 's value in 
Locations 76-77 
($4C-$4D) 

^ Invoking BASIC 

Sets LOMEM here 

LOMEM' s value in 
Locations 74-75 


Sets HIMEM here * 

24576 fc 
($6000) ~~~* 

16384 


i 


r 


User's BASIC program 
Starts at HIMEM 
and builds down 






I 
\ 


ligh-Resolution Graphics 
Page 2 


($4000) 

8192 % 


ligh-Resolution Graphics 
Page 1 


($2000) W 
CALL SHLOAD 






i 


i BASIC Variables 
Start at LOMEM 
and build up 


Sets LOMEM here * 

2048 
($0800) ► 

Lowest RAM 
Memory address: 


End + 1 
4 Shape Table 
J (if SHLOADed) 

Start 


Integer BASIC System use: 
Low-resolution graphics 
and Text screen, etc. 


0000 (50000) w 

Unfortunately, there is no convention for mapping memor] 
the highest (largest) address at the top, lowest (smalls 
bottom. The maps of Shape Tables that appear on other ] 
Starting address (lowest and smallest) at the top, the i 
(highest and largest) at the bottom. 
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PART G: COMMENTS 

1. Using memory Page 1 for high-resolution graphics erases everything in 
memory from location 8192 ($2000 hex) to location 16383 ($3FFF). If the top 
of your system's memory is in this range (as it will be, if you have a 16K 
system), Integer BASIC will normally put your BASIC program exactly where it 
will be erased by INIT. You must protect your program by setting HIMEH 
below memory Page 1, after invoking BASIC (reset Ctrl B return) and before 
RUNning your program: use this immediate-execution command: 

HIMEM: 8192 return 

2. Using memory Page 2 for high-resolution graphics erases memory from 
location 16384 ($4000) to location 24575 ($5FFF). If yours is a 24K system, 
this will erase your BASIC program unless you do one of the following: 

a) never use Page 2 for graphics; or 

b) change HIMEM to 8192, as described above. 

3. The picture is further confused if you are also using an APPLE disk with 
your system. The Disk Operating System (DOS), when booted, occupies the 
highest 10. 5K ($2A00) bytes of memory. HIMEM is moved to just below the 
DOS. Therefore, if your system contains less than 32K of memory, the DOS 
will occupy memory Page 1 and Page 2. In that case, you cannot use the 
High-Resolution graphics with the DOS intact. An attempt to do so will 
erase all or part of the DOS. A 32K system can use only Page 1 for graphics 
without destroying the DOS, but HIMEM must be moved to location 8192 as 
described above. 48K systems can usually use the DOS and both 
high-resolution memory pages without problems. 

4. If you loaded your Shape Table starting at LOMEM in location 2048 
($0800), from disk or from tape without using SHLOAD, Integer BASIC will 
erase the Shape Table when it stores the program variables. To protect your 
Shape Table, you must move LOMEM to one byte beyond the last byte of the 
Shape Table, after invoking BASIC and before using any variables. SHLOAD 
does this automatically, but you can use this immediate-execution command: 

LOMEM: 2048 + tablelength + 1 

where tablelength must be a number, not a variable name. Some programmers 
load their Shape Tables beginning in location 3048 ($0BE8). That leaves a 
safe margin of 1000 bytes for variables below the Shape Table, and at least 
5000 bytes (if HIMEM: 81 92) above the table for their BASIC program. 

5. CALLing an undefined or accidentally misspelled variable name is usually 
a CALL to location zero (the default value of any undefined variable). This 
CALL may cause unpredictable and unwelcome results, depending on the 
contents of location zero. However, after you execute this BASIC command: 

POKE 0, 96 

an accidental CALL to location zero will cause a simple jump back to your 
BASIC program, with no damage. 
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appendix! 






SOURCE ASSEMBLY 






LISTINGS 


(!'■> 


Migh-kcsoJ 


ut ion Graphics $i)(W-$D 31-T 


7f) 


P.v number 


$1)400-$1)AKB 


7 9 


Append 


$I)41iC-$U4!).'4 


80 


Kel ocate 


$DU)C-$l)b2\) 


82 


Tape Verif 


V (BASIC) $1)53 5-$IJ55 3 


83 


Tape Ver i i 


y (f)502 Code 6. Data) $])5 r >4-$I> 5AA 


8.'. 


RAH Tost 


?I)5HC:-$I')f)91 


87 


tins i c 


$1)71 7-$l)7F8 
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1 


**«»»»•»•***♦* X ■»»»##*»##•»«• 




2 


• 




* 




3 


« APPLF-II 


HI-RESOLUTION ♦ 




4 


» GRAPHICS 


SUBROUTINES » 




5 


* 




» 




6 


• BY W02 


9/13/77 » 




7 


* 




* 




8 


* ALL 


RIGHTS RESERVED * 




9 


• 




• 




10 


••it*********************** 




12 


» HI -RES EQUATES 




13 


SHAPEL 


EQU 


»1A POINTER TO 




14 


SHAPEH 


EQU 


•IB SHAPE LIST 




19 


HCOLOR1 EQU 


•1C RUNNING COLOR MASK 




16 


COUNTH 


EQU 


• ID 




17 


HBASL 


EQU 


•26 BASE ADR FOR CURRENT 




18 


HBASH 


EQU 


•27 HI -RES PLOT LINE. A 




19 


HMASK 


EQU 


•30 




20 


AIL 


EQU 


*3C MONITOR Al. 




21 


A1H 


EQU 


•3D 




22 


A2L 


EQU 


•3E MONITOR A2. 




23 


A2H 


EQU 


*3F 




24 


LOMEML 


EQU 


*4A BASIC 'START OF VARS'. 




25 


LOMEMH 


EQU 


*4B 




26 


DXL 


EQU 


*50 DELTA-X FOR HI IN, SHAPE. 




27 


DXH 


EQU 


•51 




28 


SHAPEX 


EQU 


•51 SHAPE TEMP. 




29 


DY 


EQU 


•52 DELTA-Y FOR HLIN. SHAPE. 




30 


GDRNT 


EQU 


•53 ROT QUADRANT (SHAPE). 




31 


EL 


EQU 


•54 ERROR FOR HLIN. 




32 


EH 


EQU 


•55 




33 


PPL 


EQU 


•CA BASIC START OF PROG PTR. 




34 


PPH 


EQU 


*CB 




35 


PVL 


EQU 


•CC BASIC END OF VARS PTR. 




36 


PVH 


EQU 


•CD 




37 


ACL 


EQU 


•CE BASIC ACC. 




38 


ACH 


EQU 


•CF 




39 


XOL 


EQU 


•320 PRIOR X-COORD SAVE 




40 


XOH 


EQU 


•321 AFTER HLIN OR HPLOT. 




41 


YO 


EQU 


•322 HLIN. HPLOT Y-COORD SAVE. 




42 


BXSAV 


EQU 


•323 X-REO SAVE FOR BASIC. 




43 


HCOLOR 


EQU 


•324 COLOR FOR HPLOT. HPOSN 




44 


HNDX 


EQU 


•325 HORIZ OFFSET SAVE. 




45 


HPAO 


EQU 


•326 HI -RES PAGE <«20 NORMAL) 




46 


SCALE 


EQU 


•327 SCALE FOR SHAPE. MOVE. 




47 


SHAPXL 


EQU 


•328 START OF 




48 


SHAPXH 


EQU 


•329 SHAPE TABLE. 




49 


COLLSN 


EQU 


•32A COLLISION COUNT. 




50 


HIRES 


EQU 


•C057 SWITCH TO HI -RES VIDEO 




51 


MIXSET 


EQU 


•C053 SELECT TEXT/GRAPHICS MIX 




52 


TXTCLR 


EQU 


•COSO SELECT GRAPHICS MODE. 




53 


MEMFUL 


EQU 


•E36B BASIC MEM FULL ERROR. 




54 


RNQERR 


EQU 


*Et68 BASIC RANGE ERROR. 




55 


AC ADR 


EQU 


♦F11E 2-BYTE TAPE READ SETUP. 




56 


RD2BIT 


EQU 


•FCFA TWO-EDGE TAPE SENSE. 




57 


READ 


EQU 


•FEFD TAPE READ (Al. A2). 




58 


READX1 


EQU 


•FF02 READ WITH0U1 HEADER. 




60 


• HIGH RESOLUTION GRAPHICS INITS 




61 


• 








62 


• ROM 


VERSION »DOOO TO *03FF 




63 


• 








64 




ORG 


•DOOO 




65 




OBJ 


•AOOO 




D000 A9 20 66 


SETHRL 


LDA 


#•20 IN IT FOR •2000-3FFF 




DC02 80 26 03 67 




STA 


HP AC HI -RES SCREEN MEMORY. 
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D005 AD 57 


CO 


68 




LDA 


HIRES SET HIRES DISPLAY MODE 




0008 AD 53 


CO 


69 




LDA 


MIXSET WITH TEXT AT BOTTOM. 




DOOB AD 50 


CO 


70 




LDA 


TXTCLR SET GRAPHICS DISPLAY MODE 




DOOE A9 00 




71 


HCLR 


LDA 


**0 




D010 85 1C 




72 


BKGNDO 8TA 


HC0L0R1 SET FOR BLACK BKGNO. 




D012 AD 26 


03 


73 


BKGND 


LDA 


HP AG 




D015 85 18 




74 




STA 


SHAPEH INIT HI-RES SCREEN MEM 




D017 AO 00 




75 




LDY 


#*0 FOR CURRENT PAGE. NORMALLY 




D019 84 1A 




76 




STY 


SHAPEI »2000-3FFF OR *4000-5FFF 




D01B A5 1C 




77 


BKGND1 


LDA 


HC0L0R1 




D01D 91 1A 




78 




STA 


(SHAPED, Y 




COIF 20 A2 


DO 


79 




JSR 


CSHFT2 (SHAPEL.H) WILL SPECIFY 




D022 C8 




80 




I NY 


32 SEPARATE PAGES. 




D023 DO F6 




81 




BMF 


BKGND1 THROUGHOUT THE INIT. 




D025 E6 IB 




82 




INC 


SHAPEH 




D027 A5 IB 




83 




LDA 


SHAPEH 




D029 29 IF 




84 




ANO 


#*1F TEST FOR DONE-. 




D02B DO EE 




85 




BNE 


BKCND1 




D02D 60 




86 




RTS 










88 


« HI- 


RES GRAPHICS POSITION AND PLOT SUBRS 




C02E 8D 22 


03 


89 


HPOSN 


STA 


YO ENTER WITH Y IN A-REG, 




D031 8£ 20 


03 


90 




STX 


XOL XL IN X-REO, 




D034 8C 21 


03 


91 




STY 


XOH AND XH IN Y-REG. 




D037 48 




92 




PHA 






D038 29 CO 




93 




AND 


«»C0 




D03A 85 26 




94 




STA 


HBASL FOR Y-COORD ■ OOABCDEF. 




D03C 4A 




95 




LSR 


{CALCULATES BASE ADDRESS 




D03D 4A 




96 




LSR 


i IN HBASL. HBASH FOR 




DOSE 05 26 




97 




ORA 


HBASL ACCESSING SCREEN MEM 




0040 85 26 
D042 68 




98 
99 




STA 
PLA 


HBASL VIA (HBASL >,Y ADDRESSING MODE 




D043 85 27 




100 




STA 


HBASH 




D0<?5 OA 




101 




ASL 


i CALCULATES 




DO'S 6 OA 




102 




ASL 


.HBASH - PPPFOHCD. 




D047 OA 




103 




ASL 


i HBASL - EABABOOO 




D018 26 27 




104 




ROL 


HBASH 




DO'.A OA 




105 




ASL 


(WHERE PPP-001 FOR •2000-3FFF 




DO-IB 26 27 




106 




ROL 


HBASH SCREEN MEM RANGE ANO 




D01D OA 




107 




ASL 


i PPP-010 FOR »4000-7FFF 




D04E 66 26 




108 




ROR 


HBASL (GIVEN Y-C00RD«ABCDEF0H) 




D050 A5 27 




109 




LDA 


HBASH 




D0S2 29 IF 




110 




AND 


*»1F 




D054 OD 26 


03 


111 




ORA 


WAG 




D057 85 27 




112 




STA 


HBASH 




D059 8A 




113 




TXA 


DIVIDE XO BY 7 FOR 




D05A CO 00 




114 




CPY 


«»0 INDEX FROM BASE ADR 




DOSC FO OS 




115 




BEQ 


HP0SN2 (QUOTIENT) AND BIT 




DOSE AO 23 




116 




LDY 


#*23 WITHIN SCREEN MEM BYTE 




DOiO 69 04 




117 




ADC 


**«. (MASK SPEC'D BY REMAINDER) 




D062 C8 




118 


HP0SN1 


INY 






D063 E9 07 




119 


HPOSN? 


SBC 


••7 SUBTRACT OUT SEVENS. 




D06S BO FB 




120 




BC8 


HP0SN1 




D067 8C 25 


03 


121 




STY 


JiNOX WORKS FOR XO FROM 




D06A AA 




122 




TAX 


TO 279. LOW-ORDER 




D06B BD EA 


DO 


193 




LDA 


MSKTBL-249. X BYTE IN X-REO. 




D06E 85 30 




124 




STA 


HMASK HIGH IN Y-REO ON ENTRY 




D070 98 




125 




TYA 






D071 4A 




126 




LSR 


i IF ON ODD BYTE (CARRY SET) 




D072 AD 24 


03 


127 




LDA 


HCOLOR THEN ROTATE HCOLOR ONE 




D075 85 1C 




128 


HP0SN3 


STA 


HCOLOR 1 BIT FOR 180 DEOREE SHIFT 




D077 BO 29 




129 




BC8 


CSHFT2 PRIOR TO COPYING TO HCOLOR 1. 




D079 60 




130 




RTS 






D07A 20 2E 


DO 


131 


HPLOT 


JSR 


HPOSN 




D07D A5 1C 




132 


HPLOT 1 


LDA 


HC0L0R1 CALC BIT POSN IN HBASL. H 




D07F 51 26 




133 




EOR 


(HBASL). Y HNDX. AND HMA8K FROM 




D031 25 30 




134 




ANO 


HMASK Y-COORD IN A-REG. 




D033 51 26 




135 




EOR 


(HBASL). Y X-COORD IN X. Y-RECS. 




D035 91 26 




136 




STA 


(HBASL). Y FOR ANY 'L' BITS OF HMASK 




D037 60 




137 
138 


» 


RTS 


SUBSTITUTE CORRESPONDING 
BIT OF HC0L0R1. 
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023F E6 1A 




425 


INC 


SHAPEL 




0291 00 02 




426 


BNE 


DRAW7 NEXT BYTE OF 




0293 E6 IB 




427 


INC 


SHAPEH SHAPE DEFINITION. 




0299 Al 1A 




428 DRAW7 


LDA 


(SHAPEL. X) 




0297 DO C9 




429 


BNfe 


DRAWS DONE IF ZERO. 




0299 60 




430 


RTS 










432 * HI- 


RES GRAPHICS SHAPE EX-OR SU8R 








433 • 












434 • EX-OR SHAPE INTO SCREEN. 








439 • 












436 • ROT 


- TO 3 (QUADRANT ONLY) 








437 • SCALE IS 


USED 








438 • 








D29A 86 1 A 




439 XDRAU 


STX 


SHAPEL SHAPE DEFINITION 




D29C 84 IB 




440 


STY 


SHAPEH POINTER. 




D29E AA 




441 XDRAU] 


TAX 






D29F 4A 




442 


LSR 


i ROT (»0-*3F> 




D2A0 4A 




443 


LSR 






D2A1 4 A 




444 


LSR 


i ODRNT O-UP. 1-RT. 




02A2 4A 




449 


LSR 


i 2-DWN, 3-LFT. 




02A3 89 93 




446 


STA 


QDRNT 




D2A9 8A 




447 


TXA 






D2A6 29 OF 




448 


AND 


#$F 




D2A8 AA 




449 


TAX 






D2A9 BC EB 


01 


490 


LOY 


COS, X SAVE COS AND SIN 




D2AC 84 90 




451 


STY 


DXL VALS IN DXL AND DY. 




D2AE 49 OF 




492 


EOR 


#»F 




D2B0 AA 




493 


TAX 






D2B1 BC EC 


01 


494 


LDY 


COS+1. X 




D2B4 C8 




499 


I NY 






D2B9 84 92 




496 


STY 


DY 




D2B7 AC 29 


03 


497 XDRAW2 LDY 


HNDX INDEX FROM HI-RES 




D2BA A2 00 




498 


LDX 


ft*0 BASE ADR. 




D2BC 8E 2A 


03 


499 


STX 


COLLSN CLEAR COLLISION DETECT 




D2BF Al 1A 




460 


LDA 


(SHAPEL. X) 1ST SHAPE DEF BYTE. 
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D2C1 89 


91 




461 


XDRAW3 


STA 


SHAPEX 




D2C3 A2 


80 




462 




LDX 


#*ao 




D2C9 86 


94 




463 




STX 


El EL. EH FOR FRACTIONAL 




D2C7 86 


99 




464 




STX 


EH L. R.U. D. VECTORS. 




D2C9 AE 


27 


03 


469 




LDX 


SCALE SCALE FACTOR. 




D2CC AS 


94 




466 


XDRAW4 


LDA 


El 




D2CE 38 






467 




SEC 


IF FRAC COS OVFL 




D2CF 69 


90 




468 




ADC 


DXL THEN MOVE IN 




D2D1 89 


94 




469 




STA 


EL SPECIFIED VECTOR 




D?P3 90 


04 




470 




BCC 


XDRAW9 DIRECTION 




D2D9 20 


CO 


DO 


471 




JSR 


LRUDX1 




D2DB 18 






472 




CLC 






D2D9 A9 


99 




473 


XDRAM9 


LDA 


EH IF FRAC SIN OVFL 




D2DB 69 


92 




474 




ADC 


DY THEN MOVE IN 




D2DD 89 


99 




479 




STA 


EH SPECIFIED VECTOR 




D2t>F 90 


03 




476 




BCC 


XDRAW6 DIRECTION +90 DEC. 




D2?.l 20 


D9 


DO 


477 




JSR 


LRUD2 




D2E4 CA 






478 


XDRAW6 


DEX 


LOOP ON SCALE 




D2E9 DO 


ES 




479 




BNE 


XDRAW4 FACTOR. 




D2E7 A9 


91 




480 




LDA 


SHAPEX 




D2E9 4 A 






481 




LSR 


i NEXT 3-BIT VECTOR 




D2fcA 4A 






482 




LSR 


I OF SHAPE DEF. 




D2FB 4A 






483 




LSR 






D2cC DO 


D3 




484 




BNE 


XDRAW3 




DS>EE E6 


1A 




489 




INC 


SHAPEL 




D2F0 DO 


02 




486 




BNE 


XDRAW7 NEXT BYTE OF 




02? 2 E6 


IB 




487 




INC 


SHAPEH SHAPE DEF. 




DSF4 Al 


1A 




488 


XDRAW7 


LDA 


(SHAPEL, X> 




02? 6 DO 


C9 




489 




BNE 


XDRAW3 DONE IF ZERO. 




D2F8 60 






490 




RT8 












492 


• ENTRY POINTS FROM APPLE-II BASIC 




D2F9 20 


90 


D3 


493 


SPOSN 


JSR 


PCOLR POSN CALL. COLR FROM BASIC 




D2FC 8D 


24 


03 


494 




STA 


HCOLOR 




D2T-F 20 


AF 


D3 


499 




JSR 


OETYO YO FROM BASIC. 




D302 48 






496 




PHA 






D303 20 


9A 


D3 


497 




JSR 


OETXO XO FROM BASIC. 




D306 68 






498 




PLA 






D307 20 


2E 


DO 


499 




JSR 


HPOSN 




D30A AE 


23 


03 


900 




LDX 


BXSAV 




D30D 60 






901 




RTS 






D30E 20 


F9 


D2 


902 


BPLOT 


JSR 


BPOSN PLOT CALL (BASIC). 




D3U 4C 


7D 


DO 


903 




JMP 


HPL0T1 




D314 AD 


29 


03 


904 


BLIN1 


LDA 


HNDX 




D317 4A 






909 




LSR 


I SET HCOLOR 1 FROM 




D318 20 


90 


D3 


906 




JSR 


PCOLR BASIC VAR COLR. 




D31B 20 


79 


DO 


907 




JSR 


HP0SN3 




D31E 20 


9A 


03 


908 


BLINE 


J8R 


GE1X0 LINE CALL. GET XO FROM BASIC 




D321 8A 






909 




TXA 






D322 48 






910 




PHA 






D323 98 






911 




TYA 






D3?4 AA 






912 




TAX 






D329 20 


AF 


D3 


913 




JSR 


OETYO YO FROM BASIC 




D328 A8 






914 




TAY 






D329 68 






919 




PLA 






D32A 20 


64 


Dl 


916 




JSR 


HLIN 




D37D AE 


23 


03 


917 




LDX 


BXSAV 




D330 60 






918 




RTS 






D331 20 


90 


D3 


919 


BOND 


JSR 


PCOLR BACKGROUND CALL 




D334 4C 


10 


DO 


920 




JMP 

"A2MAN 


BKONDO 
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322 


* DRAW ROUTINES 




D337 20 F9 D2 


323 


BDRAM1 


J3R 


8P0SN 




D33A 20 SI D3 


324 


SDRAM 


JSR 


BDRAWX DRAW CALL FROM BASIC. 




D330 20 3B 02 


323 




JSR 


DRAW 




0340 AE 23 03 


326 




LOX 


BXSAV 




D313 60 


327 




RT8 






0344 20 F9 02 


328 


BXDRU1 


JSR 


BPOSN 




D347 20 31 D3 


329 


BXDRAU 


JSR 


BDRAWX EX-OR DRAW 




D34A 20 9A D2 


330 




JSR 


XDRAW FROM BASIC. 




D34D AE 23 03 


331 




LOX 


BXSAV 




D330 60 


332 




RT8 






D3S1 8E 23 03 


333 


BDRAMX 


8TX 


BXSAV SAVE FOR BASIC. 




D334 A0 32 


334 




LDY 


#•32 




D336 20 92 03 


333 




JSR 


PBYTfe. SCALE FROM BASIC. 




0359 80 27 03 


336 




STA 


SCALE 




D3&C AO 28 


337 




LDY 


#•28 




D35E 20 92 03 


338 




JSR 


PBYTE ROT FROM BASIC. 




0361 48 


339 




PHA 


SAVE ON STACK. 




D362 AD 28 03 


340 




LDA 


SHAPXL 




0363 83 1A 


341 




STA 


SHAPEl START OF 




0367 AO 29 03 


342 




LDA 


SHAPXH SHAPE TABLE. 




D36A 83 18 


343 




STA 


SHAPEH 




D36C AO 20 


344 




LDY 


#•20 




D36E 20 92 03 


343 




JSR 


PBYTE SHAPE FROM BASIC. 




037 1 FO 39 


346 




BEQ 


RERR1 




0373 A2 00 


347 




LDX 


#60 




0373 CI 1A 


348 




CMP 


(SHAPEL. X) > NUM OF SHAPES? 




0377 FO 02 


349 




BEQ 


8DRWX1 




03/9 BO 31 


350 




BCS 


REKR1 YES. RANOE ERR. 




D37B OA 


331 


BDRWX1 


A3L 






D3/C 90 03 


332 




BCC 


BDRWX2 




D37E E6 IB 


533 




INC 


SHAPEH 




0330 18 


354 




CLC 






0331 A8 


553 


B0RUX2 


TAY 


SHAPE NO. * 2. 




0332 Bl 1A 


556 




LDA 


(SHAPED. Y 




0334 63 1A 


557 




ADC 


SHAPEL 




0336 AA 


558 




TAX 


ADD 2-BYTE INDEX 




0387 C8 


539 




I NY 


TO SHAPE TABLE 




0338 Bl I A 


360 




LDA 


(SHAPEL). Y START ADR 




D33A 60 29 03 


361 




ADC 


SHAPXH (X LOW. Y HI). 




0330 A8 


562 




TAY 






D33E 68 


563 




PLA 


ROT FROM STACK. 




D33F 60 


564 




RT8 








566 


• BASIC PARAM FETCH SUBR'S 




0390 AO 16 


367 


PCOLR 


LDY 


#•16 




0392 81 4A 


568 


PBYTE 


LDA 


(LOMEML).Y 




0394 DO 16 


569 




BUS 


RERR1 GET BASIC PARAM. 




0376 88 


370 




DEY 


(ERR IF >255) 




D397 Bl 4A 


371 




LDA 


(LOMEML).Y 




0399 60 


372 


RTSB 


RTS 






D39A 8E 23 03 


373 


GETXO 


STX 


BXSAV SAVE FOR BA8IC. 




D39D AO 03 


574 




LDY 


#•5 




D39F Bl 4A 


575 




LDA 


(LOMEML).Y XO LOW-OROER BYIE. 




D3A1 AA 


576 




TAX 






D3A2 C8 


377 




INY 






D3A3 Bl 4A 


578 




LDA 


(LOMEML).Y HI-OROER BYTE. 




D3A3 A8 


379 




TAY 






D3A6 EO 18 


580 




CPX 


#•18 




D3A8 E9 01 


581 




SBC 


•*1 RANOE ERR IF >279 




D3AA 90 ED 


582 




BCC 


RTSB 




D3AC 4C 68 EE 


583 


RERR1 


JMH 


RNOERR 




D3AF AO 00 


584 


CETYO 


LDY 


#♦0 OFFSET TO YO FROM LOMEM 




D3B1 20 92 03 


583 




JSR 


PBYTE 0E1 BASIC PARAM YO 




D3U4 C9 CO 


386 




CMP 


••CO (ERR IF >19l) 




D3B6 BO F4 


587 




BCS 


RERR1 




D3B8 60 


588 




RTS 
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990 * SHAPE TAPE LOAD SUBROUTINE 


D3B9 


BE 


23 03 


991 SHLOAD STX 


BXSAV SAVE FOR BASIC. 


D3RC 


20 


IE Fl 


992 JSR 


ACADR READ 2-BYTE LENGTH INTO 


D3BF 


20 


FD FE 


993 JSR 


READ BASIC ACC 


D3C2 


A9 


00 


994 LDA 


**00 i START OF SHAPE TABLE IS »0800 


D3C4 


89 


3C 


999 8TA 


AIL 


D3C6 


8D 


28 03 


996 8TA 


SHAPXL 


D3C9 


18 




997 CLC 




D3CA 


69 


CE 


998 ADC 


ACL 


D3CC 


A8 




999 TAY 




D3CD 


A9 


08 


600 LOA 


#»08 iHIOH BYTE OF SHAPE TABLE POINTER. 


D3CF 


89 


3D 


601 STA 


A1H 


D3D1 


80 


29 03 


602 STA 


SHAPXH 


D3D4 


69 


CF 


603 ADC 


ACH 


D3P6 


BO 


29 


604 BC8 


MFULL1 NOT ENOUGH MEMORY. 


D3D8 


C4 


CA 


609 CPY 


PPL 


D3DA 


48 




606 PHA 




D3DB 


E9 


CB 


607 SBC 


PPH 


D3D0 


68 




608 PLA 




D3PE 


BO 


ID 


609 BCS 


MFULL1 


D3E0 


84 


3E 


610 STY 


A2L 


D3E2 


89 


3F 


61 1 8TA 


A3H 


D3c4 


C8 




612 INY 




D3E9 


00 


02 


613 BNfc. 


SHI 0D1 


D3F.7 


69 


01 


614 ADC 


#•1 


D3E9 


84 


4A 


619 SHL0D1 8TY 


LOMEML 


D3f.B 


89 


4B 


616 STA 


LOMEMH 


D3?.D 


84 


CC 


617 STY 


PVL 


D3fcF 


89 


CD 


618 STA 


PVH 


03? 1 


20 


FA FC 


619 JSR 


RD2BIT 


03? 4 


A9 


03 


670 LDA 


•*3 . 9 SECOND HEADER. 


03? 6 


20 


02 FF 


621 JSR 


READX1 


D3F9 


AE 


23 03 


622 LDX 


BXSAV 


D3FC 


60 




623 RT8 




03? 


4C 


6B E3 


624 MFULL1 JMP 


MEMFUL 


--- END 


ASSEMBLY 




TOTAL ERRORS: 00 
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3 
4 
5 


* APPLE- K 


3ASIC RENUMBER / APPEND SUBROUTINES * 

» 
VERSION TWO » 




* 






h 


* 






RENUMBER ♦ 




7 


■» 






>CLR » 




3 


» 






>START= * 




9 


♦ 






:step» # 




10 


» 






>CALL -10331 * 




11 


* 






* 




12 


* 






OPTIONAL * 




13 


* 






>FROM» * 




14 


* 






>TO» » 




15 


» 






>CALL -10521 * 




16 


* 






» 




17 


» 




USE RENX ENTRY * 




18 


# 




FOF 


RENUMBER ALL * 




1? 


■* 






# 




20 


-* 




WOZ 


APRIL 12, 1978 * 




21 


» 




APPLE COMPUTER INC. * 




22 


«»*#***«**•»»♦*»#•*»»#»#♦»»♦#»*■« < rt« 3 »**•»•»*• »»#»** 




24 


* 










23 


• 










26 


* 


6502 EQUATES 




27 


* 










28 


ROL 


EQU 


*0 


LOW-ORDER SW16 RO BYTE. 




29 


ROH 


EQU 


• 1 


HI -ORDER. 




30 


ONE 


EQU 


•01 






31 


R11L 


EQU 


416 


LOW-ORDER SW16 Rll BYTE. 




32 


RUH 


EQU 


♦ 17 


HI -ORDER. 




33 


HI MEM 


EQU 


*4C 


BASIC HIMEM POINTER. 




34 


PPL 


EQU 


*CA 


BASIC PRUG POINTER. 




35 


PVL 


EQU 


»CC 


BASIC VAR POINTER. 




36 


MEMFULL EQU 


SE36B BASIC MEM FULL ERROR. 




37 


PRDEC 


EQU 


SE51B 


BASIC DECIMAL PRINT SUBR. 




38 


RANGERR EQU 


*EE68 BASIC RANGE ERROR. 




39 


LOAD 


EQU 


♦FODF 


BASIC LOAD SUBR. 




40 


SMI 6 


EQU 


*F689 


SWFET 16 ENTRY. 




41 


CROUT 


EQU 


*FD8E 


CAR RET SUBR. 




42 


COUT 


EQU 


*FDED 


CHAR OUT SUBR. 




44 


* 










43 


• 


SWEET 16 EQUATES 




46 


* 










47 


ACC 


EQU 


*0 


SWEET 16 ACCUMULATOR. 




48 


NEWI.OW 


EQU 


*1 


NEW INITIAL LNO. 




49 


NEW I NCR EQU 


*2 


NEW LNO I NCR. 




50 


LNLOW 


EQU 


*3 


LOW LNO OF RENUM RANGE. 




31 


LNHI 


EQU 


»4 


HI LNO OF RENUM RANGE. 




52 


TBLSTRT EQU 


•ft 


LNO TABLE START. 




53 


TDLNDX1 EQU 


*6 


PASS 1 LNO TBL INDEX. 




34 


TBLIM 


EQU 


•7 


LNO TABLE LIMIT. 




35 


SCR8 


EQU 


»a 


SCRATCH REG. 




56 


HMEM 


EQU 


*8 


HIMEM <END OF PROM). 




57 


SCR9 


EQU 


♦9 


SCRATCH REG. 




58 


PRGNDX 


EQU 


*9 


PASS 1 PROG INDEX. 




39 


PRCNDX1 EQU 


«A 


ALSO PROG INDEX. 




60 


NEWLN 


EQU 


*B 


NEXT "NEW LNO". 




61 


NEWLN1 


EQU 


*C 


PRIOR "NEW LNO" ASSIGN. 




62 


TBLND 


EQU 


*6 


PASS 2 LNO TABLE END. 




63 


PRGNDX2 EQU 


»7 


PASS 2 PROG INDEX. 




64 


CHRO 


EQU 


*9 


ASCII "0". 




65 


CHRA 


EQU 


•A 


ASCII "A". 
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66 MODE 


EQU 


*C 


CONST/LNO MODE. 












67 TBLNDX2 EQU 


•B 


LNO TBL IDX FOR UPDATE. 












68 OLDLN 


EQU 


•0 


OLD LNO FOR UPDATE. 












69 STRCON EQU 


•B 


BASIC STR CON TOKEN. 












70 REM 


EQU 


•C 


BASIC REM TOKEN. 












71 R13 


EQU 


»D 


SWEET 16 REG 13 (CPR REG). 












72 THEN 


EQU 


•D 


BASIC THEN TOKEN. 












73 LIST 


EQU 


»D 


BASIC LIST TOKEN. 












74 DEL 


EQU 


*D 














73 SCRC 


EQU 


*C 


SCRATCH REG FOR APPEND. 












77 * 


















78 • 


APPLE-11 BASIC 


RENUMBER SUBROUTINE - PASS 1 












79 


ORG 


*D400 














80 


OBJ 


*A400 






0400 


20 


89 


F6 


81 RENX 


JSR 


SW16 


OPTIONAL RANGE ENTRY. 




D403 


BO 






82 


SUB 


ACC 






D404 


33 






83 


ST 


LNLOW 


SET LNLOW-0, LNHI«0 




D403 


34 






84 


ST 


LNHI 






D4Q6 


F4 






85 


DCR 


LNHI 






D407 


00 






86 


RTN 








D408 


20 


89 


F6 


87 RENUM 


JSR 


SW16 






040S 


18 


4C 


00 


88 


SET 


HMEM, HI MEM 






D40E 


68 






89 


LDD 


8HMEM 






040F 


38 






90 


ST 


HMEM 






D410 


19 


CE 


00 


91 RNUM3 


SET 


SCR9. PVL+2 






D413 


C9 






92 


POPD 


*SCR9 


BASIC VAR PNT TO 




0414 


35 






93 


ST 


TBLSTRT 


TBLSTRT AND TBLNDX1. 




D415 


36 






94 


ST 


TBLNDX1 






D416 


21 






93 


LD 


NEWLOW 


COPY NEWLOW (INITIAL) 




D417 


3B 






96 


ST 


NEWLN 


TO NEWLN. 




D*1S 


3C 






97 


ST 


NEWLN1 






D419 


C9 






98 


POPD 


GSCR9 


BASIC PROG PNTR 




041A 


37 






99 


ST 


TBLIM 


TO TDLIM AND PRGNDX 




D41B 


39 






100 


ST 


PRGNDX 






041C 


29 






101 PASS1 


LD 


PRGNDX 






D4)D 


D8 






102 


CPR 


HMEM 


IF PRGNDX >* HMEM 




04 IE 


03 


46 




103 


BC 


PASS2 


THEN DONE PASS 1. 




0420 


3A 






104 


ST 


PRGNDX 1 






0421 


26 






103 


LD 


TBLNDX1 






0422 


EO 






106 


INR 


ACC 


IF < TWO BYTES AVAIL IN 




D423 


07 






107 


CPR 


TBLIM 


LNO TABLE THEN RETURN 




0424 


03 


38 




108 


BC 


MERR 


WITH "MEM FULL" MESSAGE. 




D426 


4A 






109 


LD 


8PRGNDX1 






D427 


A9 






110 


AOD 


PRGNDX 


ADD LENTH BYTE TO PROG INDEX. 




0428 


39 






111 


ST 


PRGNDX 






D4i!9 


6A 






112 


LDD 


8PRGNDX1 


LINE NUMBER. 




D42A 


D3 






113 


CPR 


LNLOW 


IF < LNLOW THEN GOTO P13. 




D42B 


02 


2A 




114 


BMC 


P1B 






0420 


D4 






115 


CPR 


LNHI 


IF > LNHI THEN GOTO PIC. 




D42E 


02 


02 




116 


BNC 


P1A 






D430 


07 


30 




117 


BNZ 


PIC 






0432 


76 






118 P1A 


STD 


9TB LNO XI 


ADD TO I..NO TABLE. 




0433 


00 






119 


RTN 








D434 


A3 


01 




120 


LDA 


ROH 


•*«# 6502 CODE **** 




0436 


A6 


00 




121 


LDX 


ROL 






0438 


20 


IB 


E3 


122 


JSR 


PRDEC 


PRINT OLD LNO "->" NEW LNO 




D43B 


A9 


AO 




123 


LDA 


#*AD 


<R0. RJl) IN DECIMAL. 




D43D 


20 


ED 


FD 


124 


JSR 


COUT 






0440 


A9 


BE 




125 


LOA 


t*BE 






0442 


20 


ED 


FD 


126 


JSR 


COUT 






0445 


A3 


17 




127 


LOA 


R11H 






D447 


A6 


16 




128 


LDX 


R11L 






0449 


20 


IB 


E3 


129 


JSR 


PRDEC 






D44C 


20 


8E 


FD 


130 
131 • 


JSR 


CROUT 






D34F 


20 


BC 


F6 


132 


JSR 


SKI 6+3 

77 


•*•« END 6502 CODE **** 
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133 


* 










D452 


2B 






134 


' 


LD 


NEWLN 






D153 


3C 






135 




ST 


NEWLN1 


COPY NEWLN 10 NEWLN1 AND INCR 




D454 


A2 






136 




ADO 


NEW I NCR 


NEWLN BY NEWINCR. 




D45S 


33 






137 




ST 


NEWLN 






D456 


00 






138 




H£X 


OD 


'NUL' (WILL SKIP NEXT INSTRUCTION) 




D457 


Dl 






139 


P1B 


CPR 


NEWLOW 


IF LOW LNO < NEW LOW THEN RANGE EAR. 




0458 


02 


02 




140 




BNC 


PASS1 






D45A 


00 






141 


HERR 


RTN 


PRINT "RANGE ERR" MESSAGE AND RETURN. 




01SB 


4C 


68 


FE 


142 




JMP 


R ANGER R 






D45E 


00 






143 


MERR 


RTN 


PRINT "MEM 


FULL" MESSAGE AND RETURN. 




D45F 


4C 


60 


E3 


144 




JMP 


MEMFULL 






0462 


EC 






145 


PIC 


IN* 


NEWLN 1 


IF HI LNO <■ MOST RECENT NEwL.N THEN 




0463 


DC 






146 




CPR 


NEWLN 1 


RANGE ERROR. 




0464 


02 


F4 




147 

147 


» 


BNC 


RERR 














ISO 


* 


APPLE H BASIC 


RENUMBKR / APPEND SUBROUTINE - PASS 2 












151 


■* 










D466 


19 


30 


00 


152 


PASS2 


SET 


CHRO, $0030 


ASCII "0". 




0469 


1A 


CO 


00 


153 




SET 


CHRA, *00C0 


ASCII "A". 




D46C 


27 






154 


P2A 


LD 


PRGNDX2 






D16D 


□ 3 






155 




CPR 


HMEM 


IF PRQ(i INDEX - HIMEM THEN DONE PASS 2. 




0<!6E 


03 


63 




156 




BC 


DONE 






0'l?0 


E7 






15? 




INR 


PR0NDX2 


SKIP LENTH BYTE. 




0471 


67 






133 




LDD 


<iPRGNDX2 


LINE NUMBER. 




0172 


3D 






159 


UPDATE 


ST 


OLDLN 


SAVE OLD LNO. 




0173 


25 






160 




LD 


TBLSTRT 






0474 


33 






161 




ST 


T3LNDX2 


INIT LNO TABLE INDEX. 




D475 


21 






162 




LD 


NEWLOW 


IN IT NEWLN TO NEWLOW. 




0476 


1C 






163 




HEX 


1C 


(WILL SKIP NEXT INSTR) 




01/7 


2C 






164 


U02 


LD 


NEWLN 1 






D478 


A2 






'165 




ADD 


NEW I NCR 


ADD INCR TO NEWLN I. 




0479 


3C 






166 




ST 


NFWLN1 






047A 


23 






167 




LD 


TBLNDX2 


IF LNO TBL IDX = TBLND THEN DONE 




047Q 


06 






163 




SUB 


T3LND 


SCANNING LNO TABLE 




D47C 


03 


07 




169 




BC 


UD3 






D47E 


6Q 






170 




LDD 


(JTBLN0X2 


NEXT LNO FROM TABLE. 




D47F 


3D 






171 




SU3 


OLDLN 


LOOP TO UD2 IF NOT SAME AS OLDLN. 




D430 


07 


F5 




172 




BNZ 


UD2 






D132 


C7 






173 




PCPD 


1PRGNDX2 


REPLACE OLD LNO WITH CORRESPONDING 




0433 


2C 






174 




LD 


NEWLN 1 


NEW LINE. 




D434 


77 






175 




STD 


«PR<JNDX2 






D4SS 


IB 


28 


00 


176 


UD3 


SET 


STRCON. *002 


8 STR CON TOKEN. 




D<!08 


1C 






177 




HEX 


1C 


(SKIPS NEXT TWO INSTRUCTIONS) 




D1S9 


67 






173 


ttOTCON 


LDD 


SPRGN0X2 






D1SA 


FC 






179 




OCR 


HODE 


IF MODE » THEN UPDATE LNO REF. 




D48B 


08 


E5 




180 




BMl 


UPDATE 






D43D 


47 






181 


ITEM 


LD 


3PRGNDX2 


BASIC TOKEN. 




04HE 


09 






182 




CPR 


CHRO 






D48F 


02 


09 




133 




BNC 


CHKTOK 


CHECK TOKEN FOR SPECIAL. 




D49t 


OA 






134 




CPR 


CHRA 


IF >» "0" AND < "A" THEN SKIP CONST 




D492 


02 


F5 




185 




BNC 


OOTCON 


OR UPDATE. 




0494 


F7 






186 


SKPASC 


DCR 


PRGNDX2 






0493 


67 






187 




LDD 


4PR0NDX2 


SKIP ALL NEG. BYTES OF STR CON, REM, 




0496 


05 


FC 




183 




3M 


SKPASC 


OR NAME. 




0498 


F7 






189 




DCR 


PRGNDX2 






0499 


47 






190 




LO 


3PRGNDX2 

78 
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D49A DB 


191 CHRTOX 


CPR 


STRCON STR CON TOKEN? 


D49B 06 F7 


192 


BZ 


SKPASC YES, SKIP SUBSEQUENT BYTES 


U49D 1C 3D 00 


193 


SET 


REM, »005D 


D1A0 DC 


194 


CPR 


REM REM TOKEN? 


D'lAl 06 Fl 


195 


32 


SKPASC YFS, S'<IP SUBSEQUENT LINE. 


D-1A3 08 13 


19ft 


Bt1l 


CONTST G03UB. i_OOK FOR LINE NUMBER 


D4AS FD 


197 


DCR 


R13 


D1A6 FD 


198 


DCR 


"13 (TOKEN »SF IS GOTO) 


D4A7 06 OF 


199 


BZ 


CONTST 


D1A9 ID 24 00 


200 


SET 


THEN. *0024 


D1AC DD 


201 


CPR 


THEN 


D4AD 06 09 


202 


BZ 


CONTST 'THEN' LNO. LOOK FOR L.NO. 


D4AF FO 


203 


DCR 


ACC 


D4B0 06 8A 


204 


BZ 


P2A EOL (TOKEN 01)? 


D4B2 ID 74 00 


205 


SET 


LIST, 10074 


D4B5 BD 


206 


SU3 


LIST SET MODEIF LIST OR LIST COMMA 


0456 09 01 


207 


e«:ii 


C0NTS2 (TOKENS »74, $75) 


D1B8 30 


208 CONTST 


SOB 


ACC CLEAR MODE FOR LNO 


D4B9 3C 


209 C0NTS2 


ST 


MODE UPDATE CHECK. 


D4BA 01 Dl 


210 

212 » 

213 * 


BR 


ITEM 




214 * 


APPLE K BASIC APPEND SUBROUTINE 




215 « 






D4BC 20 89 F6 


2t.fi Ar-PEND 


JSR 


sin 6 


D4IIF 1C 4E 00 


217 


SET 


SCRC,HIMEM»-2 


D4C2 CC 


218 


POPD 


GSCRC SAVE HI MEM 


D4C3 38 


219 


ST 


HMEM 


D4C4 19 CA 00 


220 


SET 


SCR9, PPL 


D4C7 69 


221 


LOD 


(JSCR9 


D4C8 7C 
D4C9 00 


222 

223 


STD 
RTN 


OSCRC SET HIMEM TO PRESERVE PROGRAM 


D4CA 20 OF FO 


224 


JSR 


LOAD LOAD FROM TAPE 


D4CD 20 89 F6 


223 


oSR 


SW16 


D4D0 CC 
D401 28 


226 
227 


POPD 
LD 


GSCRC RESTORE HIMEM TO "HOW BOTH PROURArtS 
HMEM (01.0 AMD NEW> 


D4D2 7C 


223 


STD 


«SCRC 


0403 00 


229 DOriE 


RTN 


RETURN. 


D4D4 60 


230 


RTS 




— - END ASSEMBLY ■--- 






TOTAL ERRORS: 


00 
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ASM 




i 

2 












• 


» 








3 


* 6502 RELOCATION * 








4 


• 


SUBROUTINE » 








5 


• 


• 








6 


» 1. 


DEFINE BLOCKS • 








7 


• 


#A4<A1.A2 *Y » 








8 


• 


< A Y IS CTRL-Y) • 








9 


» 


* 








10 


* 2. 


FIRST SEGMENT * 








11 


• 


•A4<A1.A2 A Y * 








12 


• 


(IF CODE) • 








13 


* 


• 








14 


* 


•A4<A1. A2M • 








15 


» 


(IF MOVE) « 








16 


• 


• 








17 


» 3. 


SUBSEQUENT SEGMENTS * 








IS 


• 


#. A2 A Y OR #. A2M # 








19 


• 


• 








20 


* 


WOZ t 1-10-77 * 








21 


» APPLE COMPUTER INC. • 








22 


» 


• 








23 


ft*************************** 








29 


• 










26 


• RELOCATION SUBROUTINE EQUATES 








27 


• 










28 


R1L 


EQU *02 SWEET 16 REQ 1. 








29 


INST 


EQU *0B 3-BYTE INST FIELD. 








30 


LENOTH 


EQU »2F LENGTH CODE 








31 


YSAV 


EQU *34 CMND BUF POINTER 








32 


AIL 


EQU *3C APPLE- I I MON PARAM AREA 








33 


A4L 


EQU «42 APPLE- I I MON PARAM REG 


4 






34 


IN 


EQU *0200 








35 


SW16 


EQU SF689 i SWEET 16 ENTRY 








36 


IN8D82 


EQU *FSBE (DISASSEMBLER ENTRY 








37 


NXTA4 


EQU »FCB4 POINTER INCR SUBR 








38 


FRMBEO 


EQU 401 SOURCE BLOCK BEGIN 








39 


FRMEND 


EQU *02 SOURCE BLOCK END 








40 


TOBEO 


EQU *04 DEST BLOCK BEOIN 








41 


ADR 


EQU *06 ADR PART OF INST. 

80 
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43 


• 












44 


• 6502 RELOCATION SUBROUTINE 








45 


• 












46 




ORG 


•D4DC 








47 




OBJ 


♦A4DC 




D4DC A4 


34 


48 


RELOC 


LDY 


YSAV CMND BUF POINTER 




040E B9 


00 02 


49 




LOA 


IN. Y NEXT CMO CHAR • 




D4F1 C9 


AA 


50 




CMP 


#»AA '•'? 




D4F3 00 


OC 


51 




BNE 


REL0C2 NO, RELOC CODE SEC. 




D4E5 E6 


34 


52 




INC 


YSAV ADVANCE POINTER. 




D4E7 A2 


07 


53 




LOX 


#♦07 




D4E9 B5 


3C 


54 


INIT 


LOA 


AIL, X MOVE BLOCK PARAMS 




D4EB 95 


02 


55 




STA 


R1L, X FROM APPLE-II MON 




D4ED CA 




56 




DEX 


AREA TO SW16 AREA 




D4EE 10 


F9 


57 




BPL 


INIT Rl-SOURCE BEG, R2- 




D4F0 60 




58 




RTS 


SOURCE END. R4-DEST BEG. 




D4F1 AO 


02 


59 


REL0C2 


LDY 


#•02 




D4F3 Bl 


3C 


60 


GET INS 


LOA 


(A1D.Y COPY 3 BYTES TO 




D4F5 99 


OB 00 


61 




STA 


INST. Y 3W16 AREA 




D4FB 88 




62 




DEY 






D4F9 10 


F8 


63 




BPL 


GET INS 




D4FB 20 


8E F8 


64 




JSR 


INSDS2 CALCULATE LENGTH OF 




04 FE A6 


2F 


65 




LOX 


LENGTH INST FROM OPCODE. 




DSOO CA 




66 




DEX 


0-1 BYTE. 1-2 BYTES. 




050 1 00 


OC 


67 




BNE 


XLATE 2-3 BYTES. 




0503 A5 


OB 


68 




LOA 


INST 




0505 29 


00 


69 




AND 


#*0D WEED OUT NON-ZERO-PAOE 




0507 FO 


14 


70 




BEQ 


STINST 2 BYTE INST8 (IMM). 




0509 29 


08 


71 




AND 


#•08 IF ZERO PAGE ADR 




DSOB DO 


10 


72 




BNE 


STINST THEN CLEAR HIGH BYTE 




0500 85 


00 


73 




STA 


INST+2 




D50F 20 


89 F6 


74 


XLATE 


JSR 


SW16 IF ADR OF ZERO PAGE 




0512 22 




75 




LD 


FRMEND OR ABS IS IN SOURCE 




0513 06 




76 




CPR 


ADR <FRM) BLOCK THEN 




0514 02 


06 


77 




BNC 


SW16RT SUBSTITUTE 




0516 26 




78 




LD 


ADR ADR-SOURCE BEO+DEST BEG 




0517 Bl 




79 




SUB 


FRMBEG 




0518 02 


02 


80 




BNC 


SW16RT 




D51A A4 




81 




ADD 


TOBEG 




051B 36 




82 




ST 


ADR 




D51C 00 




83 


SW16RT 


RTN 






0510 A2 


00 


84 


ST INST 


LOX 


#•00 




D51F B5 


OB 


85 


STINS2 


LDA 


INST, X 




0521 91 


42 


86 




STA 


(A4D.Y COPY LENGTH BYTES 




0523 E8 




87 




INX 


OF INST FROM SMI 6 AREA TO 




D524 20 


B4 FC 


88 




JSR 


NXTA4 




0527 C6 


2F 


89 




DEC 


LENGTH DEBT SEGMENT. UPDATE 




0529 10 


F4 


90 




BPL 


STINS2 SOURCE. DEST 8EGMENT 




D52B 90 


C4 


91 




BCC 


REL0C2 POINTERS. LOOP IF NOT 




0520 60 




92 




RTS 


BEYOND SOURCE SEO END. 




END 


ASSEMBLY 













TOTAL ERRORS: 00 
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1 
2 


* 




• 






3 


• 


TAPE VERIFY * 






4 


• 




* 






5 


• 




JAN 78 * 






6 


• 




BY WOZ » 






7 


• 




• 






8 

9 


• 




• 






11 


• 










12 


• 


rAPE 


VERIFY EQUATES 






13 


# 










14 


CHKSUM 


EQU 


*2E 






15 


Al 


EQU 


•3C 






16 


HI MEM 


EQU 


•4C - BASIC HIMEM POINTER 






17 


PP 


EQU 


*CA i BASIC BEGIN OF PROGRAM 






18 


PRLEN 


EQU 


*CE i BASIC PROGRAM LENGTH 






19 


XSAVE 


EQU 


*D8 (PRESERVE X-REO FOR BASIC 






20 


HDRSET 


EQU 


*FUE (SETS TAPE POINTERS TO *CE. CF 






21 


PROSET 


EQU 


*F12C (SETS TAPE POINTERS FOR PROGRAM 






22 


NXTA1 


EQU 


«FCBA i INCREMENTS <A1> AND COMPARES TO <A2) 






23 


HEAOR 


EQU 


♦FCC9 






24 


RDBYTE 


EQU 


*FCEC 






25 


RD2BIT 


EQU 


*FCFA 






26 


RDBIT 


EQU 


•FCFD 






27 


PRA1 


EQU 


*FD92 (PRINT <A1)- 






28 


PRBYTE 


EQU 


*FDOA 






29 


COUT 


EQU 


»FDED 






30 


FINISH 


EQU 


♦FF26 (CHECK CHECKSUM. RING BELL 






31 


PRERR 


EQU 


•FF2D 






33 


# 










34 


* 


TAPE VERIFY ROUTINE 






35 


• 










36 




ORG 


•D535 






37 




OBJ 


*A535 


0535 86 D8 




38 


VFYBSC 


8TX 


XSAVE ( PRESERVE X-REG FOR BASIC 


D537 38 




39 




SEC 




0538 A2 FF 




40 




LDX 


#*FF 


053A AS 40 




41 


GETLEN 


LDA 


HIMEM* 1 (CALCULATE PROGRAM LENGTH 


053C F5 CB 




42 




SBC 


PP+l.X ( INTO PRLEN 


D53E 95 CF 




43 




STA 


PRLEN+l.X 


0540 E8 




44 




INX 




D541 F0 F7 




45 




BEQ 


GETLEN 


0543 20 IE 


Fl 


46 




JSR 


HDRSET (SET UP POINTERS 


D546 20 54 


05 


47 




JSR 


TAPEVFY (DO A VERIFY ON HEADER 


0549 A2 01 




48 




LDX 


**01 (PREPARE FOR PRGSET 


054B 20 2C 


Fl 


49 




JSR 


PRGSET (SET POINTERS FOR PROGRAM VERIFY 


054E 20 54 


05 


50 




JSR 


TAPEVFY 


0551 A6 08 




51 




LDX 


XSAVE (RESTORE X-REO 


0553 60 




52 




RTS 
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D554 20 FA FC 


56 


TAPEVFY JSR 


D557 A9 16 


57 


LDA 


D559 20 C9 FC 


58 


JSR 


DS5C 85 2E 


59 


STA 


D55E 20 FA FC 


60 


JSR 


D561 AO 24 


61 


VRFY2 LDY 


D563 20 FD FC 


62 


JSR 


D566 BO F9 


63 


BCS 


D568 20 FD FC 


64 


JSR 


D56B AO 3B 


65 


LDY 


D56D 20 EC FC 


66 


VRFY3 JSR 


D570 FO OE 


67 


BEQ 


0572 45 2E 


68 


VFYLOOP EOR 


D574 85 2E 


69 


STA 


D576 20 BA FC 


70 


JSR 


D579 AO 34 


71 


LDY 


D57B 90 FO 


72 


BCC 


D57D 4C 26 FF 


73 


JMP 


D580 EA 


74 


EXTDEL NOP 


D581 EA 


75 


NOP 


D582 EA 


76 


NOP 


0583 CI 3C 


77 


CMP 


D585 FO EB 


78 


BEQ 


D587 48 


79 


PHA 


D588 20 2D FF 


80 


JSR 


D58B 20 92 FD 


81 


JSR 


D58E Bl 3C 


82 


LDA 


D590 20 DA FD 


83 


JSR 


D593 A9 AO 


84 


LDA 


D595 20 ED FD 


85 


JSR 


D598 A9 A8 


86 


LDA 


D59A 20 ED FD 


87 


JSR 


D59D 68 


88 


PLA 


D59E 20 DA FD 


89 


JSR 


D5A1 A9 A9 


90 


LDA 


D5A3 20 ED FD 


91 


JSR 


D5A6 A9 8D 


92 


LDA 


D5A8 4C ED FD 


93 


JMP 



53 * 

54 • TAPE VERIFY RAM IMAGE <A1. A2> 

55 • 
RD2BIT 

«*16 

HEADR i SYNCHRONIZE ON HEADER 

CHKSUM (INITIALIZE CHKSUM 

RD2BIT 

#*24 



RDBIT 

VRFY2 , 

RDBIT 

«»3B 

RDBYTE 

EXTDEL 



CARRY SET IF READ A '1' BIT 



iREAD A BYTE 

(ALWAYS TAKEN 
CHKSUM ; UPDATE CHECKSUM 
CHKSUM 

NXTA1 .INCREMENT Al, SET CARRY IF A1>A2 
#♦34 iONE LESS THAN USED IN READ FOR EXTRA 12 
VRFY3 (LOOP UNTIL A1>A2 
FINISH i VERIFY CHECKSUMMING BELL 
i EXTRA DELAY TO EQUALIZE TIMING 
: (+12 USEC) 

<A1,X> iBYTE THE SAME? 

VFYLOOP i IT MATCHES. LOOP BACK 

(SAVE WRONG BYTE FROM TAPE 

PRERR i PRINT "ERR" 

PRA1 i OUTPUT <A1)"-" 

(A1),Y 

PRBYTE i OUTPUT CONTENTS OF Al 

#»A0 i PRINT A BLANK 

COUT 

#*A8 ; ' ( ' 

COUT 

; OUTPUT BAD BYTE FROM TAPE 

PRBYTE 

#»A9 i ' ) ' 

COUT 

#*8D ; CARRIAGE RETURN. AND RETURN TO CALLER 

COUT 



END ASSEMBLY 

TOTAL ERRORS: 00 
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ASH 



• 




# 


• 


RAMTEST: 


* 


• 




• 


# 


BY WOZ 


# 


* 


A/77 


* 


• 




* 


* 


COPYRIGHT 1978 BY: 


• 


• 


APPLE COHPUTER INC 


* 


• 




• 



1 

2 
3 
4 
3 

6 

7 

8 

9 
10 
11 

13 • 

14 * EQUATES: 
19 • 

16 DATA EQU *0 TEST DATA «00 OR *FF 

17 NDATA EQU «1 INVERSE TEST DATA. 

18 TESTD EQU »2 GALLOP DATA. 

19 R3L EQU «6 AUX ADR POINTER. 

20 R3H EQU «7 

21 R4L EQU *8 AUX ADR POINTER. 

22 R4H EQU *9 

23 R5L EQU *A AUX ADR POINTER. 

24 R5H EQU *B 

25 R6L EQU »C CALLOP BIT HASH. 

26 R6H EQU *D (*0001 TO 2~N> 

27 YSAV EQU *34 MONITOR SCAN INDEX. 

28 A1H EQU *3D BEGIN TEST BLOCK ADR. 

29 A2L EQU *3E LEN (PAGES) FROM HON. 

30 SETCTLY EQU *DSBO s SET UP CNTRL-Y LOCATION 

31 PRBYTE EQU »FDDA BYTE PRINT SUBR. 

32 COUT EQU *FDED CHAR OUT SUBR. 

33 PRERR EQU *FF2D PRINTS 'ERR-BELL' 

34 BELL EQU *FF3A 
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36 


• 














37 


• 


RAMTEST: 










38 


• 














39 




ORO 


♦D9BC 










40 




OBJ 


•A3BC 




D5BC A9 


C3 




41 


SETUP 


LDA 


#*C3 (SET UP CNTRL-Y LOCATION 




D5BE AO 


D9 




42 




LDY 


«*D9 




D3C0 4C 


BO 


03 


43 




JMP 


SETCTLY 




D5C3 A9 


00 




44 


RAMTST 


LDA 


#»0 TE8T FOR »00» 




DSC 5 20 


DO 


D9 


49 




JSR 


TEST 




D5CS A9 


FF 




46 




LDA 


#»FF THEN »FF. 




DSCA 20 


DO 


D9 


47 




JSR 


TEST 




D5CD 4C 


3A 


FF 


48 




JMP 


BELL 




D5D0 89 


00 




49 


TEST 


STA 


DATA 




D9D2 49 


FF 




90 




EOR 


#»FF 




D5D4 85 


01 




91 




8TA 


NDATA 




D3D6 A5 


3D 




92 




LDA 


A1H 




D9D8 89 


07 




93 




8TA 


R3H INIT <R3L,R3H>, 




DSOA 83 


09 




94 




8TA 


R4H (R4L. R4H). (R9LiR9H> 




D5DC 89 


OB 




93 




8TA 


R9H TO TEST BLOCK BEOIN 




D9DE AO 


00 




36 




LDY 


#•0 ADDRE8S. 




DSFO 84 


06 




37 




8TY 


R3L 




09E2 84 


08 




38 




STY 


R4L 




D5E4 84 


OA 




39 




STY 


R5L 




D5E6 A6 


3E 




60 




LDX 


A2L LENOTH (PA0E8). 




D5E8 A9 


00 




61 




LDA 


DATA 




D9EA 91 


08 




62 


TEST01 


8TA 


(R4D.Y 8ET ENTIRE TEST 




D3EC C8 






63 




INY 


BLOCK TO DATA. 




D5ED DO 


FB 




64 




BNE 


TEST01 




D5EF EA 


09 




63 




INC 


R4H 




D5F1 CA 






66 




DEX 






D9F2 DO 


F6 




67 




BNE 


TEST01 




D9F4 AA 


3E 




68 




LDX 


A2L 




D9F6 Bl 


06 




69 


TEST02 


LDA 


(R3D.Y VERIFY ENTIRE 




D5F8 C9 


00 




70 




CMP 


DATA TE8T BLOCK. 




D9FA FO 


13 




71 




BEQ 


TE8T03 




DSFC 48 






72 




PHA 


PRESERVE BAD DATA. 




D5FD A3 


07 




73 




LDA 


R3H 




D9FF 20 


DA 


FD 


74 




JSR 


PRBYTE PRINT ADDRESS, 




D602 98 






73 




TYA 






D603 20 


8A 


D6 


76 




JSR 


PRBY8P 




D606 A9 


00 




77 




LDA 


DATA THEN EXPECTED DATA. 




D608 20 


8A 


D6 


78 




JSR 


PRBYSP 




D60B 68 






79 




PLA 


THEN BAD DATA, 




D60C 20 


7F 


D6 


80 




JSR 


PRBYCR THEN 'ERR-BELL'. 




D60F C8 






81 


TE8T03 


INY 






DMO DO 


E4 




82 




BNE 


TE8T02 




DA12 EA 


07 




83 




INC 


R3H 




D614 CA 






84 




DEX 






D619 DO 


DF 




83 




BNE 


TEST02 




D617 A6 


3E 




86 




LDX 


A2L LENOTH. 




DA 19 A9 


01 




87 


TEST04 


LDA 


NDATA 




DA1B 91 


OA 




88 




STA 


(R3D.Y SET TEST CELL TO 




DA1D 84 


OD 




89 




STY 


R6H NDATA AND R6 




DA1F 84 


OC 




90 




STY 


R6L (OALLOP BIT MA8K) 




D621 E6 


OC 




91 




INC 


R6L TO •0001. 




DA23 A9 


01 




92 


TE8T0S 


LDA 


NDATA 




DA29 20 


49 


D6 


93 




JSR 


TEST6 OALLOP WITH NDATA. 




DA28 A9 


00 




94 




LDA 


DATA 




DA2A 20 


43 


D6 


93 




JSR 


TEST6 THEN WITH DATA. 




DA2D 06 


OC 




96 




ASL 


R6L 




D62F 26 


OD 




97 




ROL 


R6H SHIFT OALLOP BIT 




D631 A9 


OD 




98 




LDA 


RAH MASK FOR NEXT 
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0633 C9 


3E 




99 


CMP 


D639 90 


EC 




100 


BCC 


D637 A3 


00 




101 


LDA 


0639 91 


OA 




102 


STA 


D63B E6 


OA 




103 


INC 


0630 00 


DA 




104 


BNE 


D63F E6 


OB 




105 


INC 


0641 CA 






106 


DEX 


064 2 DO 


D5 




107 


BNE 


0644 60 






108 RTS1 


RT8 


0649 83 


02 




109 TEST6 


STA 


D647 A3 


OA 




110 


LDA 


0649 43 


OC 




111 


EOR 


D64B 83 


08 




112 


STA 


0640 A3 


OB 




113 


LDA 


D64F 43 


OD 




114 


EOR 


0651 83 


09 




115 


STA 


0653 AS 


02 




116 


LDA 


0653 91 


08 




117 


STA 


0657 81 


OA 




118 


LDA 


0659 C3 


01 




119 


CMP 


D65B FO 


E7 




120 


BEQ 


0650 48 






121 


PHA 


D65E A3 


OB 




122 


LDA 


0660 20 


OA 


FD 


123 


JSR 


0663 A3 


OA 




124 


LDA 


0663 20 


8A 


D6 


125 


JSR 


0668 A3 


01 




126 


LDA 


D66A 91 


OA 




127 


STA 


D66C 20 


8A 


06 


128 


JSR 


066F 68 






129 


PLA 


D670 20 


8A 


D6 


130 


JSR 


0673 A3 


09 




13* 


LDA 


0675 20 


DA 


FD 


132 


JSR 


0678 A5 


08 




133 


LDA 


D67A 20 


8A 


D6 


134 


JSR 


0670 AS 


02 




135 


LDA 


D67F 20 


8A 


06 


136 PRBYCR 


JSR 


0682 20 


20 


FF 


137 


JSR 


0683 A9 


80 




138 


LDA 


0687 4C 


ED 


FD 


139 


JMP 


068A 20 


DA 


FD 


140 PRBYSP 


JSR 


D68D A9 


AO 




141 


LDA 


D68F 4C 


ED 


FD 


142 
143 


JMP 
ORO 


03F8 4C 


C3 


D3 


144 USRLOC 


JMP 



A2L NEIGHBOR. DONE 

TE3T05 IF > LENGTH. 

DATA 

(R5D.Y RESTORE TEST CELL. 

R3L 

TEST04 

R5H I NCR TEST CELL 

POINTER AND OECR 

TEST04 LENOTH COUNT. 

TESTD SAVE GALLOP DATA. 

R5L 

R6L SET R4 TO RS 

R4L EX-OR R6 

R3H FOR NEIGHBOR 

R6H ADDRESS (1 BIT 

R4H DIFFERENCE). 

TESTD 

(R4D.Y GALLOP TEST DATA. 

<RSL).Y CHECK TEST CELL 

NDATA FOR CHANGE. 

RTS1 (OK). 

PRESERVE FAIL DATA. 

R5H 

PRBYTE PRINT TEST CELL 

R5L ADDRES8, 

PRBYSP 

NDATA 

<R5L).Y (REPLACE CORRECT DATA) 

PRBYSP THEN TEST DATA BYTE. 

PRBYSP THEN FAIL DATA. 

R4H 

PRBYTE 

R4L THEN NEIGHBOR ADR. 

PRBYSP 

TE8TD THEN GALLOP DATA. 

PRBYSP OUTPUT BYTE. 8PACE. 

PRERR THEN 'ERR-BELL'. 

tt«8D ASCII CAR. RETURN. 

COUT 

PRBYTE 

#»A0 OUTPUT BYTE. THEN 

COUT SPACE. 

•3F8 

RAMTST ENTRY FROM MON (CTRL-Y) 



END ASSEMBLY 

TOTAL ERRORS: 00 
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4 
■5 

6 


, ■»***» a »#•♦* •»•»#«• « ■» ***** *»••*•*«« 












* MUSIC SUBROUTINE 












* GARY 


•J. SHANNON 












8 


4 
















** 1 t* »**»■»■»■»«»»*•»** »**»*«»» *•»* »•» 












10 




ORG 


*D717 












11 


* 
















12 


* ZERO 


PAGE 


WORK AREAS 












13 


* PARAMETER 


PASSING AREAS 












14 


* 
















15 


DOWNTIME EQL 


*0 












16 


UPTIME 


EQU 


*1 












17 


LENGTH 


EQU 


♦2 












18 


VOICE 


EQU 


»2FD 












19 


LONG 


EQU 


•2FE 












20 


NOTE 


EQU 


*2FF 












21 


SPEAKER EQU 


*C030 




D717 


4C 


4E 


D7 


22 
23 


ENTRY 

• 


JMP 


LOOKUP 












24 


* PLAY 


ONE NOTE 












25 


# 
















26 


* DUTY 


CYCLE 


DATA IN 'UPTIME' AND 












27 


* 'DOWNTIME' 


, DURATION IN 'LENGTH' 












28 


■» 
















29 


* 
















30 


♦ CYCLE IS DIVIDED INTO 'UP' HALF 












31 


* AND 


'DOWN' 


HALF 












32 


* 








D71A 


A4 


01 




33 


PLAY 


LDY 


UPTIME i GET POSITIVE PULSE WIDTH 




D71C 


AD 


30 


CO 


34 




LDA 


SPEAKER . TOGGLE SPEAKER 




D71F 


E6 


02 




35 


PLAY2 


INC 


LENGTH i DURATION 




D721 


DO 


05 




36 




BNE 


PATH1 i NOT EXPIKED 




D723 


E6 


03 




37 




INC 


LENGTH+1 




D725 


DO 


05 




38 




BNE 


PATH2 




D727 


60 






39 




RTS 


i DURATION EXPIRED 




D728 


EA 






40 


PATH1 


NOP 


i DUMMY 




D729 


4C 


2C 


D7 


41 




JMP 


PATH2 i TIME ADJUSTMENTS 




D72C 


68 






42 


PATH2 


DEY 


; DECREMENT WIDTH 




072D 


FO 


05 




43 




BEQ 


DOWN i WIDTH EXPIRED 




D72F 


4C 


32 


D7 


44 
45 
46 
47 


* 

* DOWN 

* 


JMP 
HALF 


PATH3 i IF NOT, USE UP 
OF CYCLE 




D732 


DO 


EB 




48 


PATH3 


BNE 


PLAY2 ; SAME # CYCLES 




D734 


A4 


00 




49 


DOWN 


LDY 


DOWNTIME ; C£T NEGATIVE PULSE WIDTH 




0736 


AD 


30 


CO 


50 




LDA 


SPEAKER ; TOGGLE SFEAfcfH 




D739 


E6 


02 




51 


PLAY3 


INC 


LENGTH i DURATION 




D73B 


DO 


05 




52 




BNE 


PATH4 i NOT EXPIRED 




D73D 


E6 


03 




53 




INC 


LENGTH* I 




D73F 


DO 


05 




54 




BNE 


PATH5 




0741 


60 






55 




RTS 


i DURATION EXPIRED 




D742 


EA 






56 


PATH4 


NOP 


i DUMMY 




D743 


4C 


46 


D7 


57 




JMP 


PATH5 i TIME ADJUSTMENTS 




D746 


88 






58 


PATHS 


DEY 


i DECREMENT WIDTH 




D747 


FO 


Dl 




59 




BEQ 


■PLAY i BACK i"0 UP-STDE 




D749 


4C 


4C 


D7 


60 




JMP 


PATH6 i USE UP SOME CYCLES 




D74C 


DO 


EB 




61 


PATH6 


BNE 


PLAY3 i REPEAT 

87 
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62 * 










63 * NOTE 


TABLE 


LOOKUP SUBROUTINE 






64 * 










63 » GIVEN NOTE 


NUMBER IN 'NOTE' 






66 * DURATION COUNT IN 'LONG' 






67 # FIND 


'UPTIME' AND 'OOWNTIME' 






68 * ACCORDING 


TO DUTY CYCLE CALLED 






69 * FOR 


3Y 'VOICE'. 






70 * 








D74E AD FF 02 


71 LOOKUP 


LDA 


NOTE i GET NOTE NUMBER 




0751 0A 


72 


ASL 


i DOUBLE IT 




D752 AS 


73 


TAY 






D753 B9 96 D7 


74 


LDA 


NOTES. Y ; GET UPTIME 




D756 85 00 


75 


STA 


DOWNTIME i SAVE IT 




D758 AD FD 02 


76 


LDA 


VOICE i GET DUTY CYCLE 




D75B 4A 


77 SHIFT 


LSR 






D73C FO 04 


78 


BEQ 


DONE i SHIFT WIDTH COUNT 




D75E 46 00 


79 


LSR 


DOWNTIME i ACCORDING TO VOICE 




D760 DO F9 


80 


BNE 


SHIFT 




D762 39 96 07 


81 DONE 


LDA 


NOTES. Y i GET ORIOINAL 




0763 38 


82 


SEC 






D766 E5 00 


83 


SBC 


DOWNTIME ; COMPUTE DIFFERENCE 




D768 83 01 


84 


STA 


UPTIME ; SAVE IT 




D76A C8 


85 


INY 


( NEXT ENTRY 




D763 B9 96 D7 


86 


LDA 


NOTES, Y ; GET DOWNTIME 




D76E 63 00 


87 


ADC 


DOWNTIME i ADD DIFFERENCE 




D770 83 00 


38 


STA 


DOWNTIME 




D772 A9 00 


89 


LDA 


#0 




0774 38 


90 


SEC 






D773 ED FE 02 


91 


SBC 


LONG i GET COMPLIMENT OF DURATION 




D778 83 03 


92 


STA 


LENGTH+1 MOST SIGNIFICANT BYTE 




D77A A9 00 


93 


LDA 


#0 




D77C 83 02 


94 


STA 


LENGTH 




D77E A3 01 


93 


LDA 


UPTIME 




D780 DO 98 


96 
97 * 


BNE 


PLAY i IF NOT NOTE #0. PLAY IT 






98 ♦ 'REST' SUBROUTINE' PLAYS NOTE #0 






99 * SILENTLY. 


FOR SAME DURATION AS 






100 * A REGULAR 


NOTE. 






101 ♦ 








0782 EA 


102 REST 


NOP 


i DUMMY 




0783 EA 


103 


NOP 


; CYCLE USERS 




D784 4C 87 D7 


104 


JMP 


REST2 i TO ADJUST TIME 




D787 E6 02 


105 REST2 


INC 


LENGTH 




D799 DO 03 


106 


BNE 


RESTS 




D788 E6 03 


107 


INC 


LENGTH+1 




D78D 00 05 


108 


BNE 


REST4 




D78F 60 


109 


RTS 


i IF DURATION EXPIREU 




D790 EA 


110 RESTS 


NOP 


i USE UP 'INC CYCLES 




0791 4C 94 D7 


111 


JMP 


REST4 




D794 DO EC 


112 REST4 


BNE 

"A2MAN 


REST i ALWAYS TAKEN 
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114 


» NOTE 


TABLES 






















115 


• 




















D796 00 


00 


F6 


116 


NOTES 


HEX 


00 


00 


F6 


F6 


E8 


E8 


DB 


DB 


D79E CF 


CF 


C3 


117 




HEX 


CF 


CF 


C3 


C3, 


Be, 


B8 


At" 


AE 


D7A6 A4 


A4 


9B 


118 




HEX 


A4 


A4 


9B 


9B, 


92, 


92. 


8A 


8A 


D7AE 82 


82 


7B 


119 




HEX 


82. 


82, 


7B, 


7B, 


74, 


74, 


6D, 


6E 


D7B6 67 


68 


61 


120 




HEX 


67. 


68, 


61, 


62. 


5C, 


5C, 


57, 


57 


D78E 52 


52 


4D 


121 




HEX 


52, 


52, 


4D, 


4E. 


49, 


49, 


45, 


45 


D7C6 41 


41 


3D 


122 




HEX 


41, 


41, 


3D, 


3E. 


3A, 


3A, 


36, 


37 


07CE 33 


34 


30 


123 




HEX 


33, 


34, 


30, 


31. 


2E, 


2E, 


2B. 


PC 


D7D6 29 


29 


26 


124 




HEX 


29, 


29, 


26, 


27, 


24, 


25, 


22. 


23 


D7DE 20 


21 


IE 


125 




HEX 


20, 


21, 


IE, 


IF, 


ID. 


ID, 


IB, 


1C 


D7E6 1A 


1A 


18 


126 




HEX 


1A, 


1A, 


18, 


19, 


17, 


17, 


13, 


16 


D7EE 14 


15 


13 


127 




HEX 


14, 


15, 


13. 


14, 


12, 


12, 


11, 


1 1 


D7F6 10 


10 


OF 


128 




HEX 


10, 


10, 


OF, 


10, 


OE, 


OF 






END 


ASSEMBLY 






















TOTAL ERRORS: 


00 























89 

"A2MAN 030-0026-01 3 89.PICT" 1 07 KB 2001 -07-22 dpi: 600h x 600v pix: 1 876h x 401 4v 



Author: Apple Computer, Inc. • Document # 030-0026-01 



Page 0105 of 0113 



Apple 2 Technical Manual • Programmer's Aid # 1 • 1978 



90 

"A2MAN 030-0026-01 3 90.PICT" 32 KB 2001-07-22 dpi: 600h x 600v pix: 2552h x 3932v 

Author: Apple Computer, Inc. • Document # 030-0026-01 | Page 0106 of 0113 



r- 


Apple 2 Tech 


nical Manual • Programmer's Aid # 1 • 1978 






APPENDIX II 






SUMMARY OF 






PROGRAMMER'S 


9 J 


Kenunber 


AID COMMANDS 


92 
93 


Append 

Tape Verify (}>,,\ 

Tape Ver i 1 y (Ma 


SIC) 

t h i ne Code and i'at a ) 


9i 


Kr-1 (H ;it e (M.h.Ii i 


lie Cede and I'ata ) 


9 A 


RAM Test 




94 


Music 




9S 


Hi gh-Kesn ] ut ion 


Graph i ( s 


9h 


(,'ni ( k Kef erenee 


te I! i ><h-lU'so ] ut J en Graphics I n 1 e rnia t i ■ >n 
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Chapter 1: RENUMBER 



(a) To renumber an entire BASIC program: 

CLR 

START = 1000 
STEP = 10 
CALL -10531 

(b) To renumber a program portion: 

CLR 

START = 200 
STEP = 20 

FROM = 300 (program portion 

TO = 500 to be renumbered) 

CALL -10521 



Chapter 2: APPEND 

(a) Load the second BASIC program, with high line numbers: 
LOAD 

(b) Load and append the first BASIC program, with low line numbers: 

CALL -11076 

Chapter 3: TAPE VERIFY (BASIC) 

(a) Save current BASIC program on tape: 
SAVE 

(b) Replay the tape, after: 

CALL -10955 
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Chapter 4: TAPE VERIFY (Machine Code and Data) 

(a) From the Monitor, save the portion of memory on tape: 
address 1 . address 2 W return 

(b) Initialize Tape Verify feature: 
D52EG return 

(c) Replay the tape, after: 

address 1 . address2 ctrl Y return 

Note: spaces shown within the above commands are for easier 
reading only; they should not be typed. 

Chapter 5: RELOCATE (Machine Code and Data) 

(a) From the Monitor, initialize Code-Relocation feature: 
D4D5G return 

(b) Blocks are memory locations from which program runs . 
Specify Destination and Source Block parameters: 

Dest Blk Beg < Source Blk Beg . Source Blk End ctrl Y * return 

(c) Segments are memory locations where parts of program 
reside . If first program Segment is code, Relocate: 

Dest Seg Beg < Source Seg Beg . Source Seg End ctrl Y return 

If first program Segment is data, Move: 

Dest Seg Beg < Source Seg Beg . Source Seg End return 

(d) In order of increasing address, Move subsequent 
contiguous data Segments: 

. Source Segment End ctrl Y return 

and Relocate subsequent contiguous code Segments: 

. Source Segment End M return 

Note: spaces shown within the above commands are for easier 
reading only; they should not be typed. 
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Chapter 6: RAM TEST 

(a) From the Monitor, initialize RAM Test program: 
D5BCG return 

(b) To test a portion of memory: 

address . pages Ctrl Y return (test begins at address, 

continues for length pages. 

Note: test length, pages*100, must not be greater than 
starting address. One page - 256 bytes ($100 bytes, in Hex). 

(c) To test more memory, do individual tests or concatenate: 
addrl.pagesl Ctrl Y addr2.pages2 Ctrl Y addr3.pages3 Ctrl Y return 

Example, for a 48K system: 

400.4 Ctrl Y 800.8 Ctrl Y 1000.10 Ctrl Y 2000.20 Ctrl Y 
3000.20 Ctrl Y 4000.40 Ctrl Y 7000.20 Ctrl Y 8000.40 
Ctrl Y return 

(d) To repeat test indefinitely: 

N complete test 34:0 type one space return 

Note: except where specified in step (d), spaces shown within the above 
commands are for easier reading only; they should not be typed. 

Chapter 7: MUSIC 

(a) Assign appropriate variable names to CALL 
and POKE locations (optional): 

MUSIC = -10473 
PITCH = 767 
TIME = 766 
TIMBRE = 765 

(b) Set parameters for next note: 

POKE PITCH, p (p * 1 to 50; 32 - middle C) 

POKE TIME, m (m - 1 to 255; 170 - 1 second) 

POKE TIMBRE, t (t - 2, 8, 16, 32 or 64) 

(c) Sound the note: 

CALL MUSIC 
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Chapter 8: HIGH-RESOLUTION GRAPHICS 

(a) Set order of parameters (first lines of program): 

1 X0 = Y0 = COLR 

2 SHAPE = ROT = SCALE (if shapes are used) 

(b) Assign appropriate variable names to subroutine 
calling addresses (optional; omit any subroutines 
not used in program) : 

10 INIT = -12288 : CLEAR = -12274 : BKGND = -11-471 

11 POSN = -11527 : PLOT = -11506 : LINE = -11500 

12 DRAW = -11465 : DRAW1 = -11462 

13 FIND = -11780 : SHLOAD = -11335 



(c) Assign appropriate variable names to color values 
(optional; omit any colors not used in program): 

20 BLACK = : LET GREEN = 42 : VIOLET = 85 

21 WHITE = 127 : ORANGE = 170 : BLUE = 213 

22 BLACK2 = 128 : WHITE2 = 255 



(d) Initialize: 

30 CALL INIT 



(e) Change screen conditions, if desired. Set appropriate 
parameter values, and CALL desired subroutines by name. 

Example: 

40 COLR = VIOLET : CALL BKGND : REM TURN BACKGROUND VIOLET 

50 FOR I = TO 279 STEP 5 

60 X0 = 140 : Y0 = 150 : COLR = WHITE : REM SET PARAMETERS 

70 CALL POSN : REM MARK THE "CENTER" 

80 X0 = I : Y0 = : REM SET NEW PARAMETERS 

90 CALL LINE : REM DRAW LINE TO EDGE 

100 NEXT I : END 
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QUICK REFERENCE TC HIGH-RESOLUTION INFORMATION 



Subroutine 


CALLing 


Parameters 


Name 


Address 


Needed 


INIT 


-12288 




CLEAR 


-12274 




BKGND 


-11471 


COLR 


POSN 


-11527 


X0, Y0, COLR 


PLOT 


-11506 


X0, Y0, COLR 


LINE 


-11500 


X0, Y0, COLR 


DRAW 


-11465 


X0, Y0, COLR, SHAPE, ROT, SCALE 


DRAW1 


-11462 


SHAPE, ROT, SCALE 


FIND 


-11780 




SHLOAD 


-11335 





Color 


COLR 


Name 


Value 


BLACK 





GREEN 


42 


VIOLET 


85 


WHITE 


127 



Color 


COLR 


Name 


Value 


BLACK2 


128 


ORANGE 


170 


BLUE 


213 


WHITE2 


255 



(Note: on systems below S/N 6000, colors in the second 
column appear identical to those in the first column) 



CHANGING THE HIGH -RE SOLUTION GRAPHICS DISPLAY 



Full-Screen Graphics 

Mixed Graphics-Plus-Text (Default) 

Page 2 Display 

Page 1 Display (Normal) 

Page 2 Plotting 

Page 1 Plotting (Default) 



POKE -16302, 
POKE -16301, 
POKE -16299, 
POKE -16300, 
POKE 806, 64 
POKE 806, 32 



(Note: CALL INIT sets mixed graphics-plus-text, and Page 1 plotting, 
but does not reset to Page 1 display .) 



Collision Count for Shapes PEEK (810) 

(Note: the change in PEEKed value indicates collision.) 
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<8> 



' jcippkz computer ine 

10260 Bandley Drive 

Cupertino, California 95014 

(408) 996-1010 
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